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VORWORT 


FORTH ist eine neue Computersprache. Sie entspricht mehr der gesprochenen 
Sprache als irgendeine andere höhere Programmiersprache. Dennoch kann auf jedes 
Bit im Rechner zugegriffen werden. 


FORTH läßt dem Programmierer viel Freiheit. Das ist ein großer Vorteil, denn er 
kann sich seine eigenen Datenstrukturen schaffen, er kann den Compiler verändern 
und sogar den Compile-Vorgang beeinflussen. Dies ist aber auch ein Nachteil, den 
nun ist der Programmierer voll für den Programmablauf verantwortlich. 


FORTH weist einige einzigartige Besonderheiten auf: 


© Es ist kompakt. 

© Es ist sein eigenes Betriebssystem, es ist Interpreter und Compiler. 
© Es ist schnell und es ist strukturiert (kein Sprungbefehl). 

© Es ist transportabel. 


Die Programmentwicklungszeit wird erheblich gegenüber anderen Programmier- 
sprachen verkürzt, und es ist transportabel. Ein für einen bestimmten Rechner 
geschriebenes Programm läßt sich ohne Schwierigkeiten auf einem anderen Rechner 
umsetzen. 


FORTH hat viele Anwendungsmöglichkeiten. Von der Steuerung von Teleskopen 
über die Steuerung von ÖOrangenpflückmaschinen, Trickfilmkameras bis hin zu 
Datenbanken sind einige Anwendungsmöglichkeiten, bei den FORTH anderen 
Programmiersprachen weit überlegen ist. 


FORTH ist keine leichte Programmiersprache. Schwierigkeiten ergeben sich hier, 
wenn man Vergleiche mit anderen Sprachen sucht. FORTH ist eingenständig und 
unterscheidet sich durch sein Wörterbuchkonzept grundsätzlich von anderen 
Sprachen. 


Danken möchte ich der Firma FORTH INC. die es mir ermöglichte, an einem ihrer 
Seminare teilzunehmen und Frl. Grünwald. Sie hatte beim Setzen hart mit den 
Spracheingenheiten von FORTH zu kämpfen. 


Dem Leser wünsche ich viel Spaß beim Lesen, am besten in der FORTH Schreibweise 
selbst 


LESEN FORTH IF SPASS ELSE NOT THEN ; 


Holzkirchen, Herbst 1982 E. Flögel 


Wo gibts FORTH ? 


Für die Beispiele im Buch können Sie folgende FORTH-Versionen verwenden: 


1. 


FORTH 79 
für Apple II auf Diskette 
Micromotion Los Angeles, CA 90025, (231) 821-4340 


. FIG FORTH 


FORTH Interest Group 

P.O. Box 1105, San Carlos CA 94070 

Listings für 8080, 6809, 6800, 6502, 68000 

Fertige Versionen auf Disk für TRS80/Video Genie und ATARI 800 über Ing. 
W. Hofacker zu beziehen. 


. OS-FORTH 


Speziell für ATARI-800 mit Grafik- und Soundeigenschaften 
Herstelter: Quality Software, 6660 Reseda Bivd, Suite 105, Reseda, CA 91335 
In Deutschland bei einigen ATARI-Fachhändlern verfügbar. 


4. APEX-FORTH von ATARI direkt und dessen Fachhandel 
5. Poly-FORTH von FORTH, Inc. 


2309 Pacific Coast Hay., Hermosa Beach, CA 90254, (213) 372-8493 
Entwicklungsversionen für 16-Bit Personalcomputer in Vorbereitung. 


. LERN-FORTH 


Erweiterte FIG-FORTH Version implementiert von E. Flögel/Hofacker Verlag 
für Apple Il auf Diskette u. Cassette, VC-20 Commodore auf Cassette 
(keine virtuelle Speicherverwaltung) vom Ing. W. Hofacker Verlag, Holzkirchen. 


. ELCOMP-FORTH 


Erweiterte Fig-FORTH -Version mit virtueller Speicherverwaltung und Editor. 
für Apple Il Disk, für ATARI 800 Disk, vom Hofacker Verlag, Holzkirchen. 


. PHS-FORTH 4.3 


(enthält u. a. FIG FORTH, Macro Assembler, Editor, Reals, Floppyhandling, etc.) 
PHS/SLS, Davenstedter Str. 8, 3000 Hannover 91, Tel. 0511/453817 


. FORTH für OSBORNE-I 


von der Firma Osborne ın München, Tel.: 089/4705068 


10. 8080/780/CPM-FORTH 
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Laboratory Microsystems, 4147 Beethoven St., Los Angeles, CA 90066, 
(213) 390-9292 


. Superforth von Hayden 


ohne Editor, jedoch Floating Point und Apple Grafik erhältlich vom Hofacker 
Verlag. 
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1 _ WasistFORTH? 


1. Was ist FORTH ? 


FORTH ist wie BASIC, FORTRAN oder PASCAL eine Computer- 
sprache. Allerdings kann man sie nicht mit diesen Sprachen ver- 
gleichen. Diese Sprache wurde von CHARLES H. MOORE vor etwa 10 
Jahren erfunden und von ihm zur Steuerung des Teleskops am Kitt 
Peak Observatorium verwendet. Die Lösung von Echtzeitproblemen, 
Maschinensteuerungen, Steuerungsaufgaben sind die wichtigsten Ein- 
satzgebiete von FORTH. Der Programmablauf ist nicht ganz so schnell 
wie in Assemblersprache aber wesentlich schneller als in jeder anderen 
höheren Programmiersprache. 


FORTH ist ein vollständig selbständiges Sprachsystem, das sowohl 
Compiler als auch Interpreter ist und sein eigenes Betriebssystem be- 
inhaltet. Was ist nun das einzigartige an FORTH ? 


Der Grundbegriff der hinter dieser Sprache steht, ist der Begriff des 
Stapels. Was ein Stapel ist, dürfte jedem bekannt sein, denn auf jedem 
anständigen Schreibtisch ist ein solcher Stapel. Auf diesem wird oben 
etwas abgelegt und vielleicht später wieder heruntergenommen. Es ist 
das Prinzip des LIFO-Speichers, Last In First Out. FORTH benutzt 
solche Stapel in zweierlei Weise. Es gibt den Stapel für Zahlen, auf dem 
auch die Berechnungen ausgeführt werden und den Stapel der defi- 
nierten Wörter, dem Wörterbuch. Die Verwendung eines Stapels für 
Zahlen wäre an und für sich nichts Neues. Jeder HP-Taschenrechner 
verwendet einen Stapel zum Speichern von Zahlen. Das andersartige 
an FORTH ist das Wörterbuch. 


Die Sprache besteht aus Worten, die nach ihrer Definition, das heißt, 
nach der Festlegung dessen, was dieses Wort bedeuten soll, auf. dem 


Definitionsstapel, dem Wörterbuch abgelegt werden. Dabei können 
bei der Definition des Wortes schon vorher vereinbarte Worte ver- 
wendet werden. Der Start eines Programms besteht dann im Aufruf 
eines Wortes. Dieses einfache Wörterbuchkonzept hat dazu geführt, daß 
FORTH auch bei Sprachübersetzern verwendet wird. Dies sind kleine 
Taschenrechner, bei denen nach der Eingabe eines Wortes, dieser Be- 
griff in einer anderen Sprache auf der Anzeige ausgegeben wird. Wir 
werden später sehen, wie einfach sich dies in FORTH programmieren 
lässt. 


Diese Möglichkeit, sich seine eigenen Sprachelemente selbst zu defi- 
nieren, führt aber dazu, daß die Sprache laufend erweitert wird. Jedes 
FORTH-Programm beinhaltet also immer Worte, die in dem Programm- 
paket enthalten sind, das man gekauft hat und eigene Worte, die man 
hinzugefügt hat. Man kann aber auch Worte wieder aus dem Wörter- 
buch entfernen. Das Wort zum Löschen von Worten heißt FORGET. 


Der Aufruf von FORGET ALLES löscht alle Worte, beginnend bei 
ALLES bis zum obersten Eintrag in den Stapel. Es wird also ein Teil 
des Stapels abgetragen. Das Löschen eines einzigen Wortes im Stapel 
ist nicht möglich und auch nicht sinnvoll. Denn dieses Wort kann 
Bestandteil eines oder mehrer Wörter, die im Stapel darüber liegen, 
sein. Auf die Möglichkeit, daß Worte mehrfach in einem Wörterbuch 
auftreten können und welche Auswirkungen dies auf den Programm- 
ablauf hat, werden wir später noch eingehen. 


Bei den Berechnungen werden die Zahlen ebenfalls über einen Stapel 
verarbeitet. Dabei wird für die Zahlen und die Rechenzeicheneingabe 
die postfix oder auch UPN, die polnische umgekehrte Notation ver- 
wendet. Diese Programmierweise dürfte wiederum allen HP-Taschen- 
rechnerbesitzern bestens bekannt sein. Wenn zwei Zahlen addiert 
werden, so wird z. B. in BASIC die infix Notation 2 + 4 verwendet, 
während FORTH die postfix Notation 2 4 + anwendet. In dem 
nächsten Kapitel wird darauf noch eingegangen werden. 


In diesem Buch werden wir weitgehenst die poly-FORTH Version 
von FORTH INC. verwenden. Andere FORTH-Versionen sind fig- 
FORTH und FORTH 79. fig-FORTH ist eine von der FORTH 
INTEREST GROUP implementierte FORTH Version, die für die 
meisten Prozessortypen als Listing bezogen werden kann. Die FORTH 


INTEREST GROUP bemüht sich, eine Standardisierung von FORTH 
zu erreichen. Sie gibt eine, zweimonatlich erscheinende Zeitschrift 
HORTH DIMENSIONS heraus. FORTH 79 ist eine Erweiterung von 
fiü-FORTH und wurde von der FORTH STANDARDS GROUP er- 
urbeitet. Es wäre nun falsch, hier zu glauben, daß es verschiedene 
Versionen von FORTH gibt. Der Sprachumfang kann verschieden sein, 
das ist aber in FORTH keine Einschränkung. Wie wir bald sehen 
werden, lassen sich Unterschiede durch die Definition von fehlenden 
Worten leicht beseitigen. Die hier im folgenden angeführten Pro- 
ıramme und Beispiele sind hauptsächlich auf ATARI 800 und APPLE 
Il erstellt worden. Für den ATARI 800 wurde ein fig-FORTH und für 
den APPLE Il ein FORTH 79 verwendet. Auf Unterschiede zu poly- 
FORTH wird im Einzelfall hingewiesen. 


FORTH-Programme sind nicht einfach zu beschreiben. Da die Wahl 
der Worte unbeschränkt ist, und da meist die Schreibarbeit einge- 
schränkt wird, führt dies oft zu einer Programmstenografie. Das Pro- 
gramm ist nur dem Programmierer verständlich und diesem, ohne die 
notwendige Dokumentation, auch nur kurze Zeit. Nach wenigen Tagen 
kann man oft sein eigenes Programm nicht mehr lesen. Dies ist be- 
stimmt ein Nachteil von FORTH, der aber durch viele Vorteile gegen- 
über anderen Sprachen wieder aufgehoben wird. 


Zum Schluß soll noch die Herkunft des Wortes FORTH geklärt werden. 
FORTH ist die 5-Buchstabenabkürzung von fourth in der Bezeichnung 
fourth generation of computer. Die Rechner, die Ende der 60er Jahre 
installiert wurden, trugen damals die Bezeichnung ‘Rechner der 4. 
Generation‘’' (Erst Relais, dann Röhren, Tansistoren, IC). Da aber die 
1130, auf der FORTH zum erstenmal implementiert wurde nur Be- 
zeichner von 5 Buchstaben zuließ, wurde aus fourth FORTH (nach 
FORTH DIMENSIONS, VOL 1,NR 6). 


2 Sprachelemente von 
FORTH 


2. Sprachelemente von FORTH 


In diesem Kapitel soll auf die Sprachelemente, Worte von FORTH 
wingegangen werden, wie sie in fig-FORTH oder FORTH-79 verwendet 
werden. Das Wort STAPEL bezieht sich ab jetzt auf den Stapel für 
Zahlen, dem Stapel der definierten Worte wird mit Wörterbuch be- 
zeichnet. 


2.1. Allgemein verwendete Bezeichnungen 


Bei der Beschreibung des Wörterbuches und der Operationen mit dem 
Stapelspeicher werden Bezeichnungen verwendet, wie sie im Installation 
Manual für FORTH festgelegt sind. 


Diese Bezeichnungen sind: 


adr_  Speicheradresse 
b 8 bit Byte (die oberen 8 Bit sind Null) 
c 7 bit ASCII-Zeichen 
d 32 bit-doppelt lange Festkommazahl mit Vorzeichen 
f Bool’sche Variable O = ‘false’ 
n 16 Bit Zahl mit Vorzeichen 
u 16 Bit Zahl ohne Vorzeichen 


Bei der Beschreibung des Wortes wird folgendes Schema angewendet: 


WORT ( STAPEL VORHER --) STAPEL NACHER ) 
KOMMENTAR 


Beispiel: 


ä (nin2n3 --) nin2) 


n3 wird auf dem Bildschirm ausgegeben. 


Der „ ist in FORTH die Anweisung zur Ausgabe des obersten Zeichens 
im Stapel auf den Bildschirm. Dies ist also die PRINT-Anweisung. Vor 
der Ausführung des Befehls befinden sich 3 Zahlen nt, n2, n3 im 
Stapelspeicher. Davon ist die am weitesten rechts stehende Zahl im 
TOS (Top of Stack). In unserem Fall also n3. Nach der Ausführung 
des Befehls sind nur noch zwei Zahlen (n2, n2) im Stapel, mit n2 an 
oberster Stelle. In den meisten Fällen wird noch ein Kommentar zu 
diesen Wortdefinitionen hinzugefügt werden. 


2.2. Worte in FORTH 


Als Wort in FORTH kann jede Buchstaben-, Zeichenkombination die 
zwischen Leerzeichen eingeschlossen ist, verwendet werden. Die Leer- 
zeichen spielen in FORTH eine wichtige Rolle als Berenzer (delimiter) 
für Worte. 


Gültige Worte sind also: 


ALLES, 121G, #?#,- —),!,@, USW, 
Nicht gültig ist dagegen: 
1 ABC 


es sei denn, das Leerzeichen nach der 1 ist ein, auf dem Bildschirm, 
nicht darstellbares Kontrollzeichen. 


Die Einführung solcher Kontrollzeichen ist zwar möglich aber nicht 
sinnvoll. Wenn man versucht, ein fremdes FORTH-Programm zu lesen, 
so wird man sich vor allen nach den auftretenden Leerzeichen orien- 
tieren. Dabei verwirrt dann so eine Wortkonstruktion mit einem nicht 
sichtbaren Kontrollzeichen ungemein. Im Prinzip ist es möglich, ein 
Wort zu definieren, wobei auf dem Bildschirm außer dem Beginn und 
dem Ende der Definition nichts zu sehen ist. 


Diese freie Wahl der Zeichen ist natürlich aber auch sehr tückisch. 
denn durch einen übershenen Tippfehler kann ein völlig neues Wort ent- 
„tehen. 


IORTH ist eine sehr nachsichtige Sprache. Alles, was eingegeben und 
nicht direkt als falsch erkannt wird, wird angenommen und eventuell 
„otjar Ins Wörterbuch eingetragen. Man darf also nicht blindlings darauf 
los programmieren, sondern man muß sich einigermaßen überlegen, was 
und wie man es programmiert. 


2.3. Die postfix oder umgekehrte polnische Notation 


Bei den meisten Computern erfolgt die Eingabe einer arithmetischen 
Berechnung in der gewohnten Form, wie z. B. bei der Addition zweier 
/ahlen: 


4+7 


Bei der postfix oder auch UPN Notation wird der Operator nach den 
Zahlen eingegeben: 


47+ 
Betrachten wir auch folgende Berechnung: 
(3+5) «(4-2)-7 


Der BASIC-Interpreter, der eine solche Eingabe entschlüsseln muß, 
fängt links an und stellt fest, daß der Ausdruck mit dem Zeichen ( 
beginnt. Als nächstes liest er die 3 und dann das + Zeichen. Diese 
Rechenoperation kann er nicht sofort ausführen sondern er muß erst 
die nächste Zahl, die 5, einlesen. Nun addiert er diese beiden Zahlen 
und: liest als nächstes Zeichen das ). Die Berechnung des ersten Terms 
ist abgeschlossen und das Ergebnis wird zwischengespeichert. In dieser 
Weise wird der restliche Teil der Ausdruck abgearbeitet. Der Rechner 
muß sich merken, daß eine Multiplikation mit dem nächsten Term 
durchgeführt werden muß. Diesen muß er zuerst entschlüsseln und be- 
rechnen. Dann kann er die Multiplikation ausführen und zum Schluß 
7 abziehen. Ein Programm, daß eine Entschlüsselung eines Ausdrucks 


dieser Art durchführen muß, ist relativ umfangreich. Wird dagegen der 
Ausdruck in der UPN-Notation eingegeben, so ist das Programm zur 
Berechnung sehr einfach. 
Dem Ausdruck 

(3+5)+(4-2)-7 
entspricht die Eingabe in UPN 


a 


In Abbildung 2.1 ist gezeigt, wie diese Berechnung im Stapel abläuft. 


STAPEL TOS EINGABE 


NAH D 


Abbildung 2.1 
Berechnung eines arithmetischen Ausdrucks mit UPN 


Durch den Operator werden also jeweils die beiden obersten Zahlen im 
Stapel verknüpft. Dadurch kann die Angabe von Klammern entfallen. 


Aus (4*x2+(5-2))/(6-1) 


wird 42+52-+61-/ 


In Abbildung 2.1 wird auch die Funktion des Stapels gezeigt. Jede 


/uhl wird bei der Eingabe in den TOS (Top of Stack) übernommen, 
alle schon gespeicherten Zahlen werden dabei eine Stelle tiefer in den 
"‘tapel geschoben. Wird ein Rechenzeichen erkannt, so werden die 
hidden obersten Zahlen verknüpft und das Ergebnis wird im TOS ge- 
„pischert. Alle anderen Zahlen rücken dabei eine Stelle höher. Diese Art 
ılıt Speicherung bezeichnet man auch als LIFO, Last In First Out. Die 
/uhl, die als letzte eingegeben wurde, ist die Erste bei einer Ausgabe. 


Wir haben schon gesehen, daß ein . die Ausgabe der Zahl im TOS auf 
den Bildschirm bewirkt. 


Die Anweisung PRINT 5 in BASIC lautet in FORTHS5. 
Wunn wir also 
1ı23...cCcR (CR = RETURN-TASTE) 
«ıngeben, so wird der Computer uns 
321 0K 


usdrucken. Das OK bedeutet bei den meisten FORTH-Versionen, 
daß die eingegebene Befehlsfolge erfolgreich abgeschlossen wurde. 


Weitere einfache Ausgabeanweisungen sind: 


EERRX. © Hrn] 
Ausgabe des Textes XXX 


Nach dem Wort . muß unbedingt ein Leerzeichen folgen. Der Text 
wird mit “ abgeschlossen. 


Beispiel: 
54 +." 5r4= ",. 5+4= 9% OK 


Das Wort SPACE gibt ein Leerzeichen aus. Sollen mehrere Leerzeichen 
ausgegeben werden, so geschieht dies durch das Wort SPACES. Die Zahl 
der Leerzeichen muß vorher auf dem Stapel geschrieben werden. 


SPACES ( nIn2n3 --?’ nin2) 


n3 Leerzeichen werden ausgegeben. 


Das Wort CR erzeugt eine neue Zeile. 


Durch das Wort .R kann eine Zahlenfolge rechtsbündig in einem n 
Zeichen breiten Zahlenfeld ausgegeben werden. Die Breite n muß vor- 
her auf dem Stapel sein. 


Beispiel: 

1 100 1000 CR . CR.CR. 
ergibt 

1000 

LC0 

I CK 
Dagegen 

1 100 1600 CR5 .RCR5 .RCR5.R 
ergibt 

1000 

1C0 

LOR 
R (nin2n3 --)n1n2) 


Tabulator wird auf n3 Stellen gesetzt. Die Zahl wird rechtsbündig 
ausgegeben. 


Eine weitere Ausgabefunktion ist das Wort EMIT. Dieses Wort interpre- 
10 


tt die oberste Zahl auf dem Stapel als 7 bit ASCII-Zeichen und gibt 
a auf den Bildschirm aus. 


Henspiet: 


64 EMIT @ OR 
70 EMIT F OR 
192 EMIT @ Ok 


EMIT {niIn2c --) n1n?) 


c wird als 7 bit ASCII-Zeichen ausgegeben. 


7.4. Arithmetische Befehle 


ur die 4 Grundrechnungsarten werden die Zeichen +, —, *, / ver- 
wundet. 

+ ({nIn2n3 --) niIn). 

n=n2+n3 


= (nin2n3 --’nin) 


n=n2--n3 
* (niIn2n3 --’niIn) 
n=n2«n3 
/ ({niIn2n3 --) nIn) 
n=n2/n3 

Beispiel: 


42*53-+617/.CR 20K 


In diesem und den folgenden Beispielen wird das, was vom Computer 
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ausgegeben wird, unterstrichen. Bei der Division ist zu beachten, daß 
diese eine Ganzzahldivision und keine Gleitkommadivision ist. Der 
Zahlenbereich reicht von —32768 bis 32767 . 


Wird bei einer Division der Rest dieser Division benötigt, so erhält man 
ihn durch das Wort MOD. 


MOD {nin2n3 --)niIn) 


n ist der verbleibende Rest von n2 / n3 


Benötigt man Quotient und Rest einer Division, so lautet das Wort hier- 
für /MOD. 


/MOD (n1in2n3 --)nindn ) 
n=n2/n3n4 = Rest. 


Beispiel: 
23/ MOD..CR 02 0K 


MAX (nIin2n3 --)niIn) 


n ist die größere der beiden Zahlen n2 und n3 


MIN (nin2n3 --’ niIn) 


n ist die kleinere der beiden Zahlen n 2 und n3 


Beispiel: 
56 7MIN.6 OK 
567 MAX. 7 OK 
ABS (nIn2n3 --) nin2n) 


n = Betrag von n3 
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MINUS ( nin2n3 --) nin2-n3 ) 


n3 ist negativ 


I oyısche Befehle 
Min logischen Befehle werden bitweise ausgeführt. 


AND (n!in2n3 --)nin) 
n=n2&n3 
OR (nin2n3 --) nin) 
n=n2Vn3 
XOR ({nin2n3 --) nIn ) 
=n2An3 
Beispiel: 


43 AND. 0 Ok 
43 0R.7 O0K 
45 XxOR . 1 Ok 


2.5. Befehle zur Veränderung des Stapels 


Durch die Reihenfolge bei der Eingabe und durch die Ausführung 
von Operationen ist die Zahlenfolge im Stapel festgelegt. Für eine 
weitere Berechnung benötigt man oft eine andere Zahlenfolge. Wenn 
man zum Beispiel durch den „ Befehl die oberste Zahl auf den Bild- 
schirm ausgibt, so ist sie vom Stapel verschwunden. Benötigt man diese 
Zahl aber für die Weiterrechnung, so muß man sie duplizieren. Dafür 
gibt es den Befehl DUP. 
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DUP (nin2 --) nIn2n?2) 


DUP dupliziert das oberste Element des Stapels. 


Beispiel: 
24 DUP... 442 OK 


Bei einer Subtraktion wird immer die oberste Zahl im Stapel von der 
nächsten Zahl abgezogen. Soll aber diese Subtraktion gerade anders 
herum ausgeführt werden, so muß man die Reihenfolge der beiden 
Zahlen vertauschen. Der Befehl dazu lautet SWAP. 


SWAP ( nin2n3 --) niIn3n?2 ) 


SWAP vertauscht die beiden obersten Elemente. 
Beispiel: 
12 23 SWAP. ...231 Ok 


Der Befehl OVER kopiert die 2. Zahl im Stapel in den TOS 


OVER ({ nin2n3 --) nIn2n3n2 ) 
OVER kopiert das zweite Element in den TOS. 


Beispiel: 
12 3 0VER.....2321 0k 


Die Reihenfolge der obersten 3 Zahlen im Stapel kann durch den 
Befehl ROT verändert werden. 


ROT (nIn2n3 --) n2n3nl ) 


ROT vertauscht zyklisch im Gegenuhrzeigersinn die obersten 
drei Elemente. 


Hensel: 


1.2.3. ROT aa 132 OR 


Mıı NOT wird keine der Zahlen dupliziert, sondern sie werden nur 
‚yklisch vertauscht. 


"ll die oberste Zahl vom Stapel entfernt werden, ohne sie auf den 
Iuldlschirm auszugeben, so geschieht dies mit dem Befehl DROP. 


DROP ({nIn2n3 --)niIn2) 


DROP löscht das oberste Element. 


In FORTH-79 gibt es noch zwei weitere Befehle zur Veränderung des 
Stapels, die in fig-FORTH nicht definiert sind. Mit n PICK wird das 
n te Element in die oberste Stelle kopiert. 


nPICK (n1In2n3 --) niIn2n3n4 ) 


nd = n-tes Element des Stapels. 
Beispiel: 
12343 PICK. 2 Ok 


I PICK entspricht DUP und 2 PICK entspricht OVER. 


Der Befehl n ROLL holt das n-te Element an die Spitze und verschiebt 
die vorangehenden Elemente um eine Stelle nach unten. 


nROLL ( nin2n3n4 --) n2n3n4nl ) 


mitn=4 


2 ROLL entspricht SWAP und 3 ROLL entspricht ROT. 


Für den internen Programmablauf verwendet FORTH noch einen 
weiteren Stapel, den sog. RETURN-Stapel. Dort werden Adressen, 
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Laufparameter und Rechenergebnisse zwischengespeichert. Dieser 
Stapel kann, wenn auch mit Vorsicht, zur Zwischenspeicherung von 
Zahlen verwendet werden. 

Dazu stehen 3 Worte zur Verfügung: 


IR {nin2n3 --)niIn2) 
n3 wird auf den RETURN-Stapel geschrieben. 


R) {niIn2 --) nin2n3) 
n3 wird aus dem RETURN-Stapel zurückgeholt. 


R (nin2 --) nin2n3) 


Das oberste Element des RETURN-Stapels wird auf den Rechen- 
Stapel kopiert. 


Beispiel: 
1234 DR SWAPR> . ... 4231 Ok 


Die oberste Zahl des Stapels wurde vor dem SWAP im RETURN- 
Stapel gespeichert und hinterher wieder zurückgeholt. Durch SWAP 
wurde also nur 2 und 3 vertauscht. Aber Achtung: das Zurückholen 
mit R ? muß in der gleichen Zeile vor dem betätigen der RETURN- 
Taste geschehen. Sonst ist die Zahl verloren, da FORTH diesen 
RETURN-Stapel für die Programmausführung benötigt. 


Auf weitere Möglichkeiten, den Stapel zu verändern wird später noch 
eingegangen werden. Bevor wir die bisherigen Befehle in Programmbei- 
spielen anwenden können, müssen wir noch zeigen, wie man in FORTH 
seine eigenen Befehle und Worte definiert. 


2.6. Definition eigener Worte 


Die Möglichkeit schon definierte Worte aus dem Wörterbuch in einem 
neuen Wort zusammenzufassen, ist eine der mächtigsten Eigenschaften 
von FORTH. Eine Wortdefinition beginnt mit einem : gefolgt von 


tinem Leerzeichen. Alle folgenden Zeichen bis zum nächsten Leer- 
suchen bilden das neue Wort. Dann folgt die Angabe der schon defi- 
nierten Worte. Äbgeschlossen wird diese Definition mit einem ; 


XXX ( nin2n3 --) niIn2n3 ) 


Beginn der Definition von XXX 


: ({nin2n3 --) nin2n3) 


Ende der Definition 


Als erstes Beispiel wollen wir die Ausgabeanweisung . durch das Wort 
DRUCKE ersetzen. Die FORTH-Zeile dafür lautet: 


: DRUCKE . ; OK 
Dieses Wort wird, wenn die Eingabe mit CR beendet wird, ins Wörter- 
buch eingetragen. Wenn es aufgerufen wird, führt es die Ausgabean- 


weisung . aus. 


Anstatt 123.23 0K 


können wir jetzt 1 2 3 DRUCKE 


schreiben und der Computer wird mit 
3 OK 


„ntworten. 


In einem zweiten Beispiel wollen wir den Term. 
x2+4X +5 
für einige Werte von X als ganze Zahl auswerten. 


Das Programm für X = 3 lautet dann 
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3 DUP DUP * SWAP 4 * +5 + „ 26 OK 
Dieses Programm soll zu einem einzigen Wort zusammengefasst werden. 
Nur der eingegebene X-Wert soll jedesmal verschieden sein. 


Zuerst fassen wir die zwei DUP in einem einzigen Wort zusammen. 


DD DUP DUP ; Ok 
und schreiben dann unser Programm, für das wir den Namen = wählen 


» # DD * SWAPA%* +5 .; 
# NOT UNIQUE OK 


Nach dem CR erhalten wir allerdings eine Warnung: 
# NAME NOT UNIQUE OK 
oder vielleicht auch 


# ISN’T UNIQUE OK 


Das heißt, wir haben jetzt ein Wort definiert, das schon ins Wörterbuch 
eingetragen ist. Der Rechner antwortet trotzdem mit OK, denn wenn 
ab sofort das # aufgerufen wird, so wird die gerade eingegebene Pro- 
grammzeile ausgeführt, und nicht der früher definierte Programmab- 
lauf für #. 


Wir können jetzt also eingeben: 


l# 10 OK 
-1# 2 OK 
3# 26 OK USW 


Zum besseren Verständnis ist der Programmablauf im Stapel in Ab 
bildung 2.2 gezeigt. 


STAPEL TOS EINGABE 


Abbildung 2.2 
Berechnung des Terms X2 +4X +5 mit X =3 


Obwohl sich die beiden Sprachen kaum vergleichen lassen, ist in Ab- 
Inidung 2.3 das BASIC-Programm und das FORTH-Programm zur 
IIerechnung dieses Ausdrucks gegenüber gestellt. 


NASIC PROGRAMM: FORTE PROGRAMM 
I0O INPUT X : DD DUP DUP ; 
20 Y=X#*X+4*X+5 : #DD* SKAPA* +5 rt. 
30 PRINT Y 
Abbildung 2.3 


Vergleich BASIC-Programm mit FORTH-Programm 


Natürlich möchte man feststellen, ob diese Namen ins Wörterbuch 
übernommen sind und welche Namen sonst dort eingetragen sind. Das 
Wort zu Ausgabe des Wörterbuchs heißt VLIST. 


Mit VLIST CR wird das ganze Wörterbuch auf den Bildschirm ausge- 
yeben. Die obersten beiden Einträge sind unsere gerade definierten 
Wort # und DD, wobei die zuletzt gemachte Definition # an oberster 
Stelle im Wörterbuchstapel steht. 


20 


Das Löschen von Einträgen geschieht mit dem Wort FORGET. Mit 
FORGET # wird nur das Wort # gelöscht, mit FORGET DD die beiden 
neuen Worte # und DD. 


FORGET XXX (n=--)n) 


Löscht XXX und alle darüberliegenden Worte. 


Beim Schreiben und Testen von FORTH-Programmen muß man sich 
immer vor Augen halten, daß das Wörterbuch ebenfalls ein Stapel ist. 
Hätten wir zum Beispiel bei der Definition des Wortes # einen Fehler 
gemacht, so wäre mit FORGET # nur diese Zeile gelöscht worden. 
Danach hätte man nur diese Zeile neu eingeben müssen. 


Wenn man einen Fehler in DD gemacht hat und löscht diese Zeile 
mit FORGET DD, so sind beide neuen Zeilen verschwunden und 
müssen neu eingegeben werden. Deshalb ist die direkte Eingabe von 
FORTH Worten nur bei ganz kurzen Programmen sinnvoll. In allen 
anderen Fällen müssen die Programme über den Editor eingegeben 
werden (siehe Kapitel 5). 


Bei einem Fehler in dem Wort DD hätte auch eine Neudefinition 
ohne vorheriges Löschen der alten Definition nichts gebracht, denn 
die Reihenfolge im Wörterbuch wäre dann 


DD # DD VLIST..... 


Das Wort # enthält aber immer noch die hinter ihm stehende Defi- 
nition von DD und nicht die des vor ihm stehenden Wortes DD. 
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Dazu noch ein Beispiel. Wir definieren der Reihe nach: 
: EINS 1.035; 0kK 


: ZWEI 2 .;: OK ! 
DREI 3. ; Ok 


: DREI ZWEI ; 
DREI NOT UNIQUE OK 


Inlın Aufruf von DREI erhalten wir 2 OK . Nach FORGET DREI 
oıyibt der Aufruf von DREI 3 OK . Wenn wir jetzt FORGET ZWEI 
ninyuben und danach DREI aufrufen, kommt die Meldung DREI ?. 
Nach diesem FORGET ZWEI ist nur noch der Eintrag EINS erhalten 
wnblieben. 


u die Wörter in FORTH beliebige Buchstaben- und Zeichenfolgen sein 
können, ist auch möglich, z. B. Rechenzeichen zu verändern. Wer 
uber den : statt des / als Divisionszeichen haben möchte, der defi- 
tiert einfach 


ee 


Damit ist aber das Eröffnungszeichen für Wortdefinitionen verloren 
(tlangen. 


Iusonders trickreich ist es, die Bedeutung von Rechenzeichen zu 
verändern. Mit 
a 


’ 


wird aus der Addition eine Subtraktion. Somit erhält man für 


42+. 
nicht 6 OK 
sondern 2 OK 


Mit diesem Wörterbuch lassen sich natürlich sehr leicht Sprachüber- 
setzer programmieren. Die folgende Zeile 


LEECH .„" BLUTEGEL" ; 
weist dem englischen Wort leech das deutsche Wort Blutegel zu. 


tür die Programmierung eines Sprachübersetzers sind also keinerlei 
Programmierkenntnisse notwendig, da FORTH dieses Wörterbuch- 
konzept schon beinhaltet. Man kann sich leicht mehrere solcher Wörter- 
bucher anlegen, diese auf Diskette speichern und wenn sie gebraucht 
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werden, wieder in den Rechner einlesen. Nach diesem Prinzip arbeiten 
die meisten käuflichen maschinellen Sprachübersetzer. 


Sogar einfache Sätze lassen sich damit bilden. Dazu folgende Bei- 
spiele: 


3 ch vn 


AM ." BIN" ; 
HERE ." HIER " 5; 


Der Aufruf von: 
I AM HERE ergibt ICH BIN HIER OK 
Natürlich erfolgt keine Syntaxüberprüfung. Denn die Feststellung 


HERE I AM ergibt HIER ICH BIN OK 


Dieses schöne Konzept eines Sprachübersetzers arbeitet leider nicht 
mit allen FORTH Versionen. Nur FORTH-79 und die ihm ähnlichen 
Dialekte erlauben die Definition von Worten bis zu 31 Zeichen. Andere 
FORTH-Versionen tragen ins Wörterbuch nur die ersten drei Zeichen 
und die Anzahl der Zeichen ein. Das obige Beispiel mit 


: LEECH ." BLUTEGEL " ; 
funktioniert hier auch, aber andere Worte wie LEEXX oder LEEST 


führen dann ebenfalls zur gleichen Übersetzung. 


Eine andere Art, einen Sprachübersetzer zu programmieren, wird später 
noch gezeigt werden. 


Verwendet man solch einen FORTH-Dialekt, so ist es sinnvoll, bei der 
Definition von Worten, die eine ähnliche Funktion haben und deshalb 
ähnlich lauten, diese durch das erste Zeichen zu unterscheiden, wie z. B. 


2DUP 3DUP oder 25PACE 4SPACE 


’1 Konstante und Variable 
wohl die meisten Zahlenwerte in FORTH über den Stapel verar- 


let werden, so kann man trotzdem auch Konstante und Variable 
kfunerem, 
U Definition einer Konstanten ist einfach. Durch 


10 CONSTANT Y OK 


wi ım Wörterbuch eine Konstante Y eingetragen, die den Zahlen- 
wort 10 hat. Dieser Wert kann dann im Programm aufgerufen werden. 


12.220... 22: OK 


CONSTANT (NAME) ( n1n2n3 --) nin2 ) 
Der Wert der Konstanten (NAME ) ist n3 


Is gleiche Ergebnis hätte man auch mit der Definition 


Y1l2; OR 


«teicht. Die Ausführungszeit von Programmen mit Konstantendefi- 
nition Ist Jedoch wesentlich kürzer. 


Auf die gleiche Weise wird eine Variable definiert: 


10 VARIABLE X OK 


VARIABLE (NAME) ( nIn2n3 --) nin2) 
Der Anfangswert der Variablen {NAME ) ist n3 


Zwischen einer Konstanten und einer Variablen besteht ein sehr wesent- 
licher Unterschied. Eine Konstante behält im Programm ihren Wert. 
Dieser wird beim Aufruf der Konstanten auf dem Stapel abgelegt. Beim 
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Aufruf einer Variablen wird dagegen nicht der Wert der Variablen, 
sondern die Adresse dieser Variablen auf dem Stapel abgelegt. Zum 
Ändern des Wertes einer Variablen benötigen wir noch zwei weitere 
Befehle, nähmlich den Befehl: Wert holen (LOAD) und den Befehl: 
Wert wegspeichern (STORE). 


Für den STORE -Befehl wird das ! verwendet. 


! ({nin2 ad --’ ni) 


Der Wert n2 ist nach addr gespeichert worden. 


Für den LOAD-Befehl wird das “ Zeichen verwendet. 


(u (nin2 adr --) niIn?2n) 


Der Inhalt von adr ist auf dem Stapel abgelegt worden. 


Beispiel: 
10 VARIABLE X CR OK 


xa.o 0X 
2x! OR 
x@. 2 OK 


Wenn wir statt X @ .nur X . eingeben, erhalten wir die Adresse bei 
welcher der Wert der Variablen gespeichert ist. 


X. CR 8071 OK 
Diese Adresse wird jedoch, je nach verwendeten Rechner und ange- 
legten Wörterbuch, immer verschieden sein. Den Wert der Variablen 
X lässt sich dann auch durch 


15 8071 ! CR OK 


ändern. 


Mii 


X. CR 
halten wir dann 
15 OK 
In Zeichenfolge @ . ist zu dem Zeichen ? zusammengefasst worden. 
Mit 
x ? CR 
uthualt man ebenfalls 
15 OK 


Auf ähnliche Weise kann man auch den Wert einer schon vereinbarten 
konstanten ändern. Die Adresse einer Konstanten erhält man mit dem 
WORT ‘ (Einzelapostroph). 


“«NAME) (nin2 --) nin2adr ) 


Die Adresse der Konstanten ( NAME ) wird auf dem Stapel 
geholt. 


Neispiel: 
10 CONSTANT W OK 


Ww. 210 OK 
20 'wı OK 
W. 20 OK 


In der dritten Zeile dieses Programms wird die Zahl 20 auf den Stapel 
jeschrieben und dann mit ' W die Adresse der Konstanten W geholt. 
Der folgende ! Befehl speichert die Zahl 20 in diese Adresse. Damit ist 
der Wert der Konstanten verändert. 
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Die Befehle ! STORE und @ LOAD lassen sich also auf alle Speicher 
zellen anwenden. Für diejenigen, die mal wieder einen Vergleich mi 
BASIC haben möchten: 


n adr ! entspricht POKE adr, n 
und adr @ entspricht PEEK ({adr) 


n ist allerdings eine 16 Bit Zahl. Will man dagegen nur ein einzelne 
Byte, also eine Dezimalzahl zwischen O und 255 abspeichern, so ver 
wendet man das Wort C!.MitC@ wird ein Byte auf den Stape 
geholt, dabei werden die oberen 8 Bit zu Null gesetzt. 


Verwendet man in BASIC die Befehle PEEK und POKE, so mul 
man den Wert und die Adresse immer dezimal angeben. In FORTF 
kann man sich dagegen die Zahlenbasis, in der man arbeiten möchte 
frei wählen. Bei der Initialisierung von FORTH wird immer da 
Rechnen zur Basis 10, also Dezimalrechnung, angenommen. Das Um 
schalten zum Rechnen mit der Basis 16, Hexadezimalrechnung ge 
schieht mit dem Wort HEX. 


HEX ( nin2n3 --) nin2n3 ) 


Hexadezimalrechnung 
Das Rücksetzen in die Dezimalrechnung geschieht mit DECIMAL 


DECIMAL (n1in2n3 --) nin2n3) 


Dezimalrechnung 
Beispiel: 
DECIMAL 100 HEX .„. 64 OK 


Alle Zahlen, die jetzt eingegeben werden, werden als Hexadezimal 
zahlen interpretiert. 


FFFF ODECIMAL .„. -1 OK 


amt haben wir aber auch die Bestätigung, daß unsere Zahlen im 2-er 
unplement dargestellt werden. Will man also Hexadezimalzahlen 
ankt ın den Speicher schreiben, so schaltet man um in Hexadezimal- 
Wuntellung und speichert die Werte bei den gegebenen Adressen ab. 
Min muß dabei allerdings beachten, daß dies immer 16-Bit Zahlen sind, 
‚lin im Speicher 2 Byte belegen. Sollen nur einzelne Bytes verwendet 
wunlon, so verwendet man die C! und C @ Befehle. 

HEX 

AI 6000 C! 

FF 6001 C! 

+0 CA .; 


6000 .C A9 OK 


In der Mitte dieser Programmfolge haben wir uns eine neue Ausgabe 
ılofiniert, die uns den Inhalt einer Speicherzelle auf den Bildschirm 
ausgibt. Mit 

6000 DECIMAL .„ 24576 OK 
halten wir den Dezimalwert dieser Adresse und mit 

24576 .C 169 Ok 

den Inhalt dieser Zelle als Dezimalzahl. 
Ki den Zahlenumwandlungen wird eine intern vereinbarte Variable 
NASE benutzt, deren Wert der augenblicklich verwendeten Basis zur 
Darstellung von Zahlen entspricht. Ändert man diesen Wert, so kann 
ınan auch mit anderen Zahlensystemen arbeiten. Mit 


: BIN 2 BASE ! ; 


definieren wir ein binäres Zahlensystem und mit 
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TRI 3 BASE ! ; 
ein trinäres Zahlensystem, das nur die Zahlen OD, 1, 2, kennt. 
Die folgenden beiden Definitionen geben eine Dezimalzahl als Binä, 
oder Trinärzahl auf den Bildschirm aus. 
„BIN BIN „ DECIMAL ; 


„TRI TRI . DECIMAL ; 


120 .BIN 1111000 Ok 


140 .TRI 12012 CK 


In den beiden obigen Zeilen tritt zweimal die gleiche Wortfolge BAS 
I . DECIMAL auf. Definiert man hierfür ein neues Wort, so kann ma 
die Schreibarbeit verkürzen. 


>> BASE ! .„DECIMAL ; 


‚BIN >> ; 


: .„TRI >>; 


Dieses Beispiel zeigt schon, das FORTH Programme sehr kurz, aber d 
durch nicht unbedingt lesbarer werden. 


2.8. Übungen und Beispiel 


Es folgen nun einige Übungen zu bisherigen Inhalt. Außerdem soll z 
einem Beispiel gezeigt werden, was man mit den bisherigen Kenn 
nissen schon programmieren kann. 


wos einige Aufgaben zum Umsetzen von algebrischen Ausdrücken 


le juontlix Notation. 
ÜBUNG 1 
Iıhha7 
ae. 0: Se 
? 
1 .h°7 42 


1 17+.(5-3)*(6-2))+4 
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(3+2)»4 


In «ler nächsten Übung wird die Wortfolge gesucht, welche die folgen- 
‚hm Veränderungen am Stapel durchführen. Das oberste Element des 
"Yapels steht immer am weitesten rechts. 


ÜBUNG 2 
xXYZ--I XZY 
XYZ--I\VZX 
XYZ--)I)\YXZ 
XYZ--)ZYX 
XYZ=--IXYVYZYZ 
XYZ--IXYX 


In der nächsten Übung sollen die Definitionen der folgenden Worte 
Iestimmt werden: 


ÜBUNG 3 
“„)  2DUP (niIn2 --) nin2n!n2) 


b) 2DROP ( nin?2n3 --) nl) 
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c) 2SWAP (n1in2n3n4 --)n3n4nin2) 

d) 20OVER ( nin2n3n4 --) nin2n3n4nin2 ) 

e) NIP (nin2n3 --) nin3) 

f} 4REV ( nin2n3n4 --) n4n3n2nl ) 

In der nächsten Übung sollen algebraische Ausdrücke berechnet werde 


Auf dem Stapel sind die Zahlen X Y Z gespeichert, mit Z im TOS.C 
sucht sind die Wortfolgen. 


ÜBUNG 4 
a) X2+XY--Z 
b) X2-XY+Z 
c) X2+XY+2Z2 
dd xX2-XY-2Z2 
und mit YZ auf dem Stapel: 
e) Y+Y/Z+Z 
f} Y+YV/Z-Z 


gg Y-WZ-Z 


In Übung 5 sind Wortfolgen gegeben. Welche Zahl ist zum Scirluß a 
dem Stapel ? Bei Beginn der Wortfolge ist der Stapel leer. 


ÜBUNG 5 
a 3DUPDUP2+-- 
b} 123ROTOVER ++ 


c}) 2DUP »4+3DUPOVER DROP + 


ugrammbeispiel 1: Kalorienberechnung 


“un Berechnung einer täglich verbrauchten Kalorien, bzw. Joulemenge 
all dio Eingabe in den Rechner in der folgenden Form geschehen: 


BROT 3 SCHEIBEN 
KAESE 100 GR 
MILCH 1GLAS USW. 


Hin Aufsummierung soll auf dem Stapel erfolgen und durch Aufruf des 
Wurtes Summe ausgegeben werden. Diese Zahl soll jedoch auf dem 
htapel erhalten bleiben. 

hie Programmierung dieses Beispiels ist recht einfach (Abbildung 2.81). 


Wir ordnen den Nahrungsmitteln die Zahl der Kalorien in einer Mess- 
uinheit zu. Zum Beispiel: 


: APFELSAFT 104 ; 
Pin Einheit ist hier ein Glas, oder 
: BIERWURST 36 ; 


(le Einheit ist hier 10 Gramm. 


In unserem Beispiel sind auf diese Weise einige Nahrungsmittel und 
(iwtränke aufgeführt. 
Die Berechnung wird durch die Maßeinheiten ausgeführt. Betrachten 
wır folgende Eingabe 


LIMONADE 3 GLAESER 


Vor dem Wort LIMONADE ist die bisherige Summe im TOS. Durch das 
Wort LIMONADE wird die Zahl 110 und durch das Wort 3 die Zahl 3 
“uf den Stapel gelegt. Durch das Wort Gläser wird zuerst das Produkt 
3 .« 110 gebildet und das Ergebniss zur bisherigen Summe hinzuaddiert. 


Vor der ersten Eingabe muß eine Null auf den Stape! geschrieben 
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werden, als Ausgangswert für die bisherige Summe. In dieser Form had 
das Programm den Nachteil, daß bei einer falschen Eingabe der Stapg 
gelöscht wird. Man wird also die Aufsummierung in einer Variableı 
SUMME durchführen. 


( KOMMENTAR ZUR KALORIEN BERECHNUNG 
EINHEIT GLAS : APFELSAFT,PILS,BIER,LIMONADE, 
COCA-COLA,CHAMPAGNER. 
EINHEIT 10 GRAMM: BIERWURST,BLUTWURST,BUTTER 
EDAMER,. 


EINHEIT STUECK:BROETCHEN,CAMEMBERT. 
EINHEIT SCHEIBE: BROT. 
EINGABE IN DER FORM: 


NAHRUNGSMITTEL ANZAHL MASSEINHEIT. 


( KALORIENWERTE ) 
: APFELSAFT 104 ; : PILS 146 ; : BIER 255 ; 
BIERWURST 36 ; BLUTWURST 42 ; 
LIMONADE 110 ; 
BROETCHEN 140 ; : BROT 100 ; : BUTTER 78 ; 
CAMEMBERT 200 ; : CHAMPAGNER 67 ; 
COCA-COLA 88 ; 
EDAMER 34 ; 


( MASS-EINHEITEN ) 

: GLAS DROP + ; : GLAESER * + ; 
GRAMM 10 / * +; 
SCHEIBE DROP + ; 
STUECK * + ; 


SCHEIBEN * +; 


SUMME DUP . ; 
APFELSAFT 1 GLAS OK 
BROETCHEN 2 STUECK OR 
EDAMER 200 GRAMM OK 


BIERWURST 150 GRAMM OK . 
SUMME 1604 OK Abbildung 2.81. 


Kalorienberechnun 


"uyammbeispiel 2: Vorsen 


Ye meisten Heimrechner besitzen einen Lautsprecher, über den durch 
“ ieiierzeichen ein Ton ausgegeben werden kann. Beim Apple II 
sılanım Beispiel durch 


u kınzer Ton ausgegeben. 
11 Morseprogramm wird nun durch das Wort „ ein kurzer Ton, durch 
‚ua Wort — ein längerer Ton und durch das Wort / eine Pause definiert. 


Yun kann man im Morsecode ganze Worte (Beispiel SOS) oder ein- 
“ulm Buchstaben angeben. 


Huch Aufruf der Worte oder durch Eingeben einer Buchstabenfolge 


HEX 87 EMIT 


wtiennt durch Leerzeichen wird der Morsecode ausgegeben. 
un Programm zeigt Abbildung 2.82. 


( MORSE PROGRAMM ) 

: / 500 0 DO LOOP ; 
- 30 DO 87 
. 87 EMIT / 


S0os 
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Abbildung 2.82 
Morseprogramm 


Dr} 


2.9. Zusammenstellung der bisherigen Definitionen 


STAPEL STAPEL 
WORT VORHER NACHER 
R (nin2n3 --) niIn2) 


Ausgabe von n3 auf Bildschirm 


.UXXX" (n=--)In) 


Ausgabe von XXX als Text. 


SPACE (n--)n) 


Ausgabe eines Leerzeichens. 


SPACES ( nin2n3 --) niIn?2) 


Ausgabe von n3 Leerzeichen. 


CR (n--)n) 


Beginn einer neuen Zeile 


R { nin2n3 --) nin2) 


Tabulator wird auf n3 Stellen gesetzt. Die Zahl wird rechtsbünd 
ausgegeben. 
EMIT ({nin2c --)nin2) 


c wird als 7 bit ASCII-Zeichen auf den Bildschirm ausgegeben. 


1 (nin2n3 --) nin) 


Adldiitionn =n2 +n3 


{nin2n3 --)nIn) 


tulhıtraktion n = n2 — n3 


. ({nin2n3 --)nIn) 


Multiplikation n = n2 * n3 


(niIn2n3 --) nIn) 


Pivisionn=n2/n3 


MOD (nIn2n3 --)niIn) 


n Host der Division n2 / n3 


IMOD ({nin2n3 --)niIn4n) 
vn n2/n3,n4 = Rest 


MAX ({nin2n3 --)nIn) 


ist die größere der beiden Zahlen n2, n3 


MIN (nIn2n3 --)niIn) 


ı ıst die kleinere der beiden Zahlen n2, n3 


ABS {nin2n3 --)nin2n) 
nıst der Absolutwert von n3 
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MINUS ( n1n2n3 --) niIn2-n3 ) 


n3 wird negativ 


AND {nin2n3 --)nIn) 
n=n2&n3 

OR ({nin2n3 --)niIn) 
n=n2Vn3 

XOR ({nin2n3 --) niIn) 
n=n2An3 

DUP ( nin2n3 --) nin2n3n3 ) 


Duplizieren des obersten Elementes auf dem Stapel. 
SWAP ({nin2n3 --) niIn3n2) 


Vertauschen der beiden obersten Elemente auf dem Stapel. 


OVER (nin2n3 --) nin2n3n2 ) 


2-tes Element des Stapels duplizieren und auf den Stapel leg 


ROT (nIin2n3 --) n2n3nl ) 


Die obersten 3 Elemente des Stapel zyklisch vertauschen. 


DROP ( nIn2n3 --) niIn2) 


Oberstes Element löschen 


ch ({ntn2n3 --) niIn2n4 ) 


tt ll 7/9) nd ist n3-tes Element des Stapels, dupliziert. 


| (nIn2n3 --) niIn2n4 ) 


tin tes Element des Stapels. Alle anderen eine Stelle tiefer 
sa hshotn, 


" {nIn2n3 --) nin2) 


I wird auf den Returnstapel geschrieben. 


IE (n1in?2 --) nin2n3 ) 


„4 wird aus dem Returnstapel zurückgeholt. 


N (nIn2 --) niIn2n3 ) 


Hm oberste Element n3 des Returnstapels wird auf den Rechen- 
"tapel Kopiert. 


“XXX (n=--)»n) 


Nınyinn der Definition des Wortes XXX. 


(n=--?In) 


I nde der Wortdefinition. 


VLIST (n=--)n) 


Ausgabe des augenblicklichen Wörterbuchs. 
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FORGET XXX (n--)»n) 


Löschen der Definition XXX einschließlich aller später gemacht 
Definitionen. 


CONSTANT (NAME) (nin2n3 --) nin2) 


Definition einer Konstanten (NAME), deren Wert n3 ist. 


VARIABLE (NAME) (nin2n3 --) n1n2) 


Definition einer Variablen (NAME), deren Wert n3 ist. 


| ( nin2ad --) n]l) 


Der Wert n2 wird nach adr gespeichert. 


(a ( nin2adr --) nin2n ) 


n ist der Inhalt der Speicherzelle adr. 


NAME) ( nin2 --) nin2adr ) 
Die Adresse der Konstanten (NAME) wird auf den Stapel geholt. 


? (nin2ad --?’nin?2) 


entspricht @. 


C (nib ad --) ni) 


8-bit Byte wird nach adr gespeichert. 


Ca { nin2addr --’ niIn2b) 


8-bit Byte wird aus adr geholt. 


u! (n=--)n) 


hlnularstellung Hexadezimal. 


sttiMAL (n=--)n) 


ahtendarstellung Dezimal. 


nal (n--)n) 


variable, enthält den augenblicklichen Wert der Zahlenbasis. 
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Ing. W. Hofacker GmbH 
Tegernseer Straße 18 


D-8150 Holzkirchen/Obb. 


Die Fachzeitschrift für MICROCOMPUTER 
Eine unentbehrliche Informationsquelle für alle Elektroniker 


Microcomputer-Anwendungsbeispiele 
Künstliche Intelligenz 
Block-Strukturierte Prograrmme 
Datenverarbeitung im Kleinbetrieb 
Club-Neuheiten 

Computer und Kunst 

Musik mit dem Computer 
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SC/MP, 2650, 1802 
Eigenbau-Computersysteme 
Interface-Techniken 
Microcomputer KITs 


Neue Produkte 
Betriebssysteme für Floppys 
Programmiertechniken 
Software-Quellen 
Programmierbeispiele 
Soziale Aspekte der 
technik 
Technologische Neuheiten 
Anwendungen in der Meß- und Regel- 
technik 

Anwendungen bei Funk-Amateuren 


Microcomputer- 


3 Programmschleifen 
und Verzweigungen 


3. Programmschleifen und Verzweigungen 


Die bisher beschriebenen Worte sind ausschließlich Befehle, die sofort 
ausgeführt werden, aber keinerlei Steuerung des Programmablaufs be- 
wirken. In FORTH ist, genau wie in PASCAL, kein GOTO-Befehl, also 
ein unbedingter Sprungbefehl vorhanden. Damit sind FORTH-Pro- 
jramme also strukturiert und benutzen zu Programmverzweigungen 
Schleifenbedildungen der Form BEGIN .. . UNTIL oder BEGIN... 
WHILE .. .REPEAT oder Abfragen mit IF... THEN. Diese Befehls- 
(olgen können aber nicht direkt ausgeführt werden, sondern müssen 
innerhalb einer Wortdefinition verarbeitet werden. Der Programmierer 
muß dafür Sorge tragen, daß diese Schleifen auch terminieren und 
somit keine unendlichen Schleifen auftreten. 


3.1.D0...LOOP 


Mit der Definition der DO... LOOP wird eine feststehende Zahl von 
Schleifendurchläufen ausgeführt. 


DO...LOOP (nin2n3 --’ ni) 


Schleife wird von n3 bis n2 in Einerschritten durchlaufen. n2 ) n3. 


Der Anfangswert für die Schleife ist n3, der Endwert der Schleife ist n2. 
Dazwischen wird der Zählparameter immer um Eins erhöht. Der End- 
wert muß also immer größer sein als der Anfangswert. Bei jedem 
Schleifendurchlauf wird geprüft, ob der Zählerparameter gleich oder 
größer als der Endwert n2 ist. Ist dies der Fall, so wird die Schleifen- 
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bildung abgebrochen. Diese Abfrage erfolgt aber erst am Ende einer 
Schleife, sodaß jede Schleife mindestens einmal durchlaufen wird, auch 
dann, wenn der Anfangswert größer als der Endwert ist. Der Zähl- 
parameter ist als | definiert und kann innerhalb einer Schleife auf den 
Stapel geholt werden. 


| {nin2n3 --) nin2n3n ) 


n Zählparameter der Schleife. 


Beispiele: 
Ausgabe der Zahlen O bis 9 auf den Bildschirm. 


T 100 DO I. LOOP ; Ok 
T0Oo1234567e9 ck 


Vertauscht man die beiden Zahlen 10 und OD in der obigen Definition, so 
wird die Schleife einmal durchlaufen. 


T0 10 DO IT. LOOP ; OR 
T 10 Ok 


Man muß also bei der Programmierung von DO... LOOP Schleifen da- 
rauf achten, daß diese auf jedenfall mindestens einmal durchlaufen 
werden. 

im nächsten Beispiel soll die Verwendung von geschachtelten Schleifen 
gezeigt werden. 


Die Zahlen von O bis 9 sollen in einer Dreiecksmatrix ausgegeben 
werden. 

Dafür definieren wir 2 Schleifen IS und AS. IS ist die innere und AS 
die äußere Schleife. 


IS 0 DO I. LOOP ; 
AS 0 DO CR 1 - DUP IS LOOP ; 


Der Aufruf 11 10 AS CR druckt dann das folgende Zahlenbild aus 
(Abbildung 3.1.). 


11 10 AS 
0123456789 
123 58T 
01234567 
01-2 3.256 
012345 
01234 
0123 
012 
01 
0 CK 

Abbildung 3.1 


Dreiecksmatrix 


Der Aufruf von 10 IS druckt die Zahlen von O bis 9 aus. In der Schleife 
AS wird aber, vevor die Schleife IS ausgeführt wird, von der obersten 
Zahl im Stapel Eins abgezogen. Der erste Parameter ist somit 11, die 
Schleife AS wird 10 mal durchlaufen. 


Eine andere Dreiecksmatrix erhält man z. B. mit 16 15 AS 


In der Definition der äußeren Schleife wird ein neues, im Wörterbuch 
vorhandenes Wort CR verwendet. Dies bewirkt die Ausgabe einer neuen 
Zeile auf den Bildschirm. 


Mit einer DO... LOOP Schleife kann man auch zeigen, daß FORTH 
eine sehr schnelle Sprache ist. Die Schleife 
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: T 10000 0 DO LOOP ; 


wird in weniger als 3 Sekunden ausgeführt (ATARI 800). 


Nicht immer kann man Schleifen verwenden, die den Zählparameter 
immer in Einerschritten erhöhen. Für andere Schrittweiten verwendet 
man die DO...+ LOOP. Dabei wird als Increment der Zahlenwert ver- 
wendet, der vor dem Schleifenende auf dem Stapel ist. Mit 


DO 5 +LOOP 


erfolgt eine Erhöhung des Zählparameters um 5 oder mit 

DO -2 +LOOP 
wird der Zählparameter laufend um 2 erniedrigt. Der Abbruch der 
Schleife erfolgt, wenn der neue Index größer oder gleich der oberen 


Grenze oder wenn der neue Index gleich oder kleiner als die untere 
Grenze ist (kann bei einzelnen FORTH-Versionen abweichen). 


: T DO I. 2 +LOOP ; OK 
100T 02468 OK 


: M DO I. -3 +LOOP ; OK 


312M 12963 CK 


+LOOP (n1In2n3 --) nin?) 


Der Zählparameter wird um n3 verändert. 


3.2. Vergleichsbefehle 


Wird ein Programm an einer Stelle verzweigt, so geschieht dies im 
allgemeinen durch einen Vergleich. Je nach Aussage dieses Vergleiches 
wird z. B. ein Programm weitergeführt oder der vorangegangene Teil 
nochmals ausgeführt. 


Als Vergleiche stehen in FORTH folgende Worte zur Verfügung: 


( (nin2n3 --) nif) 


=1 wenn n?2 (n3 


) (nIn2n3 --)nif ) 


= 1 wenn n?2)n3 


= ( nin2n3 --)nif) 


f= 1 wenn n2 = n3 


ot (nin2n3 --) nin2f) 


f= 1 wennn3(0 


0= ({nin2n3 --) n!in2f) 


f=1wennn3=0 


Als Ergebnis eines Vergleiches wird immer auf dem Stapel eine 
Boolsche Zahl f abgelegt, die eins ist, wenn die Vergleichsbedingung er- 
füllt und Null, wenn der Vergleich nicht erfüllt ist. 


Beispiele: 23x<. 1 OK 
32<.0 0X 
32=. 0 0X 
-20<. 1 
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Bei einem Vergleich zwischen den beiden obersten Zahlen auf dem 
Stapel werden diese beiden Zahlen durch das Ergebnis des Vergleichs 
ersetzt. Will man diese Zahlen für die weitere Rechnung verwenden, so 
kann man durch 


OVER OVER 
beide Zahlen in ihrer Reihenfolge auf dem Stapel kopieren. 
2 4 OVER OVER . . . 


druckt 4242 _0R aus. 


3.3.I1F...ELSE...ENDIF 


Dies ist eine der einfachsten Programmverzweigungen in FORTH. 


Die Definitionen sind: 
IF<(WORTE) ENDIF 
IF<WORTE) THEN 
IF (nin2f --)nin2) 


Die (WORTE) zwischen IF und ENDIF werden nur ausgeführt, 
wenn f = 1 ist. 


IF(WORTEN) ELSE (WORTE2) END'F 
IF(WORTEI) ELSE (WORTE2) THEN 
IF {ni1n2f --’ nin2) 


Die (WORTE1) werden ausgeführt, wenn f = 1 ist. Ist f = O so 
werden die (WORTE2) ausgeführt. 


Statt des Wortes ENDIF wird in einigen FORTH-Versionen das Wort 


THEN verwendet. 


Beispiel: 
Das Wort VERGL vergleicht die beiden obersten Zahlen im Stapel und 


durckt das Ergebnis in Worten aus. 


VERGI. < IF „." KLEINER" ELSE .„." GROESSER" THEN 


2 3 VERGL KLEINER OK 


3 2 VERGL GROESSER OK 


3.4.BEGIN... UNTIL 
Die BEGIN... UNTIL Schleife hat folgenden Aufbau: 


BEGIN WORTE) (BEDINGUNG) UNTIL 


Die Wortfolge zwischen BEGIN und UNTIL wird solange durchlaufen, 
bis die vor UNTIL ausgeführte Bedingung erfüllt ist. Die Ausführung 
der Bedinung legt die Boolsche Variable f auf dem Stapel ab. Diese 
Variable wird durch das Wort UNTIL wieder vom Stapel genommen. 
War f = Eins, dann wird die Schleife verlassen, war f = Null, so wird die 
Schleife wiederholt. 


Beispiel: 
Die Schleifenbildung mit BEGIN ... UNTIL soll dazu verwendet wer- 
den, die Zahlen von 1 bis 100 zusammenzuzählen. 


0 VARIABLE X 
IECXKX@] +DUPX !; 


SEM O0 BECIN INCX + X @ 1C0 


u 
@ 
r. 
3 
— 
u 
. 


SUM 5050 CK 


Abbildung 3.2 
Bildung der Summe von 1 bis 100 


. 
' 
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Das Programm besteht aus zwei Worten INCX und SUM. In INCX wird 
die Variable X immer um Eins erhöht und der augenblickliche Wert auf 
den Stapel geschrieben. Dann wird X wieder weggespeichert. 


In SUM wird zuerst eine Null auf den Stapel geschrieben und dann 
INCX aufgerufen. Die bisherige Summe und der neue X Wert werden 
addiert. Dann wird X wieder geholt und mit 100 auf Gleichheit über- 
prüft. Ist diese Bedingung erfüllt, wird die Schleife verlassen und das 
oberste Element des Stapel, die aufaddierte Summe, ausgegeben und 
somit das Programm beendet. 


Beispiel: 


Das Tastenfeld wird laufend abgefragt, ob die Taste K gedrückt wurde. 
Dazu wird das Wort KEY verwendet, das dem Befehl GET$ in BASIC 
entspricht. Das Programm wartet auf einen Tastendruck und legt das 
entsprechende ASCII-Zeichen auf dem Stapel ab. 


KEY (nin2n3 --) nin2n3c ) 
c = 7 bit ASCII-Zeichen. 


: INKEY BEGIN KEY 75 = UNTIL ." K" ; OK 


INKEY K OK 


Das Wort INKEY wird mit der Ausgabe des Buchstabens K nur dann 
verlassen, wenn die Taste K gedrückt wurde. 


3.5. BEGIN...WHILE... REPEAT 


Der Aufbau dieser Schleife weist Unterscheide zu den bisherigen 
Schleifen auf. Der Programmablauf der Schleife ist folgender: 


BEGIN (WORTE1) (BEDINGUNG) WHILE (WORTE2) REPEAT (WORTE3) 


Das Wort WHILE liest das oberste Element des Stapels und prüft, ob es 


0 oder 1 ist, als Ergebnis eines Vergleichs, der unmittelbar vor dem 
WHILE ausgeführt wurde. Ist diese Bedingung erfüllt (f = 1) dann 
werden die WORTE2 zwischen WHILE und REPEAT ausgeführt. 
Dunach geht das Programm zurück zum BEGIN und durchläuft 
WORTE]1 bis zum WHILE. Wird durch einen Vergleich jetzt f = O, so 
wird die Wortfolge WORTE3 nach dem REPEAT durchlaufen und 
damit die Schleife verlassen. 


Die Worte zwischen WHILE und REPEAT werden sooft ausgeführt, 
„olange die Bedingung vor dem WHILE erfüllt ist. 
Beispiel: 


Das folgende Programm in Abbildung 3.3 bildet ebenfalls, wie das Pro- 
yramm in Abbildung 3.2 die Summe der Zahlen von 1 bis 100. 


TEST 1 + DUP 101 <; 
ADD DUP ROT + SWAP ; 


SUM BEGIN TEST WHILE ADD REPEAT 
SWAP . ; 


0 SUM 5050 OK 


Abbildund 3.3 
Bildung der Summe von 1 bis 100 


Im Wort TEST wird das oberste Element des Stapels laufend um Eins 
erhöht und geprüft ob es kleiner als 101 ist. 


Das Aufaddieren der Zahlen erfolgt in ADD. Die oberste Zahl auf dem 
stapel, die Anzahl der bisher addierten Zahlen, wird verdoppelt und 
nach unten geschoben. Dann werden die beiden obersten Zahlen 
„ddiert. Auf dem Stapel steht nun die Summe, gefolgt von der Anzahl 
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der Zahlen. Vor dem Rücksprung nach BEGIN wird diese Reihenfolge 
wieder vertauscht sodaß die Anzahl im Teil TEST wieder um Eins 
erhöht werden kann. 


Wird dabei die Zahl 101 erreicht, dann ist die Bedingung vor dem 


WHILE nicht mehr erfüllt und der Programmteil ADD wird über- 
sprungen. Die Summe wird auf den Stapel geholt und ausgegeben. 


Verlassen einer Schleife: 


Das Wort LEAVE führt zum Abbruch einer Schleife. 
Die Definition lautet: 


LEAVE (n=--)n) 
Abbruch einer Schleife. 


Das folgende Beispiel gibt die Zweierpotenzen, solange sie eine posi- 
tive 16 bit Zahl sind, auf den Bildschirm aus. 


: AUS CR 1 0 1600 0 DO + DUP DUP 0 > 


IF DUP 5 .R CR ELSE LEAVE TEEN LOOP ; 


CK 120g 
AUS 256 
1 512 
2 1024 
4 2048 
8 4096 
16 8192 
32 16384 
64 OK 


Für die obere Grenze der Schleife ist dabei die Zahl 1000 gewählt 
worden. Durch LEAVE wird die Schleife schon vorher verlassen. 


3.6. Programmbeispiele 

In diesem Kapitel sollen die bisherigen Definitionen in einfachen Pro- 
ıtımmbeispielen angewendet werden. Diese Programme sind bewußt 
«hr kurz und einfach gehalten, damit man sich in die Art und Weise, 
wie in FORTH programmiert wird, einarbeiten kann. 


3.6.1. Berechnung des GGT zweier Zahlen 


Iur die Berechnung des größten gemeinsamen Teilers zweier Zahlen 
wird der Euklid’sche Algorithmus verwendet. 


/uerst bestimmt man den Rest R zweier ganzen Zahlen A und B durch 
IA MOD B). Ist R = 0, dann ist B der gesuchte GGT. Ist R # 0, so wird 
A BundB=R. Danach wird die obige Modulo Division wieder aus- 
wlührt, solange, bis die Bedingung R = O erfüllt ist. 


I ur diese Berechnung definieren wir ein Wort GGT. 


GGT BEGIN SWAP CVER MOD DUP 0= UNTIL 
DROP .„ ; 


27 21 GCT 3 OK 


/um besseren Verständnis des Programmablaufs bei der Berechnung des 
GGT von 2 Zahlen, ist die Belegung des Stapels in Abbildung 3.4 ge- 
zeigt. Die Schleife zwischen BEGIN und UNTIL wird solange durch- 
lıufen, bis bei der Modulodivision MOD kein Rest mehr auftritt. Die 
weite Zahl auf dem Stapel ist dann der größte gemeinsame Teiler der 
beiden eingegebenen Zahlen. 
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STAPEL TOS EINGABE 


9] 

2 

BEGIN 
21 SWAP 
OVER 
21 | 6 | MoD 
016] our 
BEHERRERF., 

21 6] unrı. 
6 21] swar 
21 | 6] over 
73] moo 
DuP 
370] o 

6] 37] unru 
318] swar 
973] over 
370] moo 
a9: 10] 100% 
u BEE, 

3 | 0 | uNTiL 
__ 1 3 | oror 


Abbildung 3.4 
Stapelbelegung beim Programmablauf GGT 


3.6.2. Fibboconacci-Zahlen 
Die Fiboconnacci-Zahlen stellen eine Zahlenfolge dar, bei welcher das 


nächste Element der Folge aus der Summe der beiden Vorgänger be- 
rechnet wird. Die ersten beiden Zahlen sind O und 1. 
Die Folge lautet dann: 


01712 35 8 13 21 34 55 


Das Programm dazu zeigt Abbildung 3.5. 


( FIBBOCONACCI ZAHLEN ) 
: FIB ( ENDE --> ) CR 0 1 BEGIN 
DUP >R ROT DUP R> > WHILE 
ROT ROT DUP ROT + DUP . 
REPEAT ; 


Abbildung 3.5 
Fibboconacci Zahlen 


Vor dem Aufruf des Wortes FIB muß eine Zahl auf dem Stapel sein, die 
angibt, nach welcher Grenze die Entwicklung abgebrochen werden soll. 


ur diese Programmverzweigung wird die BEGIN ... WHILE ... 
NEPEAT Schleife verwendet. Die gerade berechnete neue Zahl, der 
Folge wird kurzzeitig auf dem RETURN-Stapel zwischengespeichert, 
um sie dann zum Vergleich wieder auf den Rechenstapel zurückzu- 
holen. 


Die ersten Durchläufe der Schleife wird in Abbildung 3.6 gezeigt. 


Die Programmteile zwischen BEGIN und WHILE und zwischen WHILE 
und REPEAT werden solange durchlaufen, bis die Bedingung vor dem 
WHILE, Grenze größer als neue Zahl nicht mehr erfüllt ist. In unserem 
Beispiel ist dies bei der Bildung der achten Zahl der Folge (21) der 
Hall, und das Programm damit beendet. 


Der Aufruf von 20 FIB ergibt: 


20 FB 123581321 OK 


3.6.3. Berechnung der Primzahlen zwischen zwei Grenzen 

Das folgende Programm berechnet die Primzahlen zwischen einer 
oberen und einer unteren Grenze. Vor dem Aufruf von PRIM 
müssen diese beiden Zahlen in dieser Reihenfolge auf dem Stapel 
stehen. 
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Abbildung 3.6 
Stapelbelegung des Programmes FIB 


REPEAT 
DUP 

IR 

ROT 
DUP 

R) 


REPEAT 
DUP 


( BERECHNUNG DER PRIMZAHLEN ZWISCHEN ) 
( ZWEI GRENZEN ) 


4 VARIABLE ZEILE 
TEST MOD 0= ; 


DRUCKE DUP 4 „R ZEILE € DUP 0= IF CR DROP 4 
ELSE 1 - TEEN ZEILE !; 


FTEST DUP 2 / 2 DO DUP I TEST IF 0 LEAVE 
THEN LOOP DUP IF DRUCKE ELSE DROP 
THEN DROP ; 


PRIV ( ENDE ANF --> ) 
CR 4 ZEILE ! 
EO 1 PTEST LOOP CK ; 


200 1 PRIE 
d 3 5 ı ıı 
13-7 ‚17, 19: 02329 
31 37 41 43 47 
3.3 99, 6 el 
73,18 83. 89, „97 
101 103 1067 109 113 
127 131 137 139 149 
151 157 163 167 173 
1793 181 191 193 197 


Abbildung 3.7 
Primzahlen 


Der verwendete Algorithmus ist sehr einfach. In einer Schleife PTEST 
wird probiert, ob die augenblicklich ausgewählte Zahl durch den Lauf- 
parameter der Schleife teilbar ist oder nicht. Die Schleife beginnt mit 2, 
die obere Grenze entspricht der Hälfte der zu untersuchenden Zahl. 
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Wird ein Teiler ohne Rest gefunden, so wird mit LEAVE die Schleife 
verlassen. Vor der Ausführung von LEAVE wird auf dem Stapel eine 
Null zurückgelassen. Dies beudetet aber für die folgende IF Abfrage die 
Bedingung FALSE, sodaß das Wort DRUCKE nicht ausgeführt, sondern 
das DROP nach dem ELSE ausgeführt wird. 


Wird eine Zahl gefunden, die durch nichts teilbar ist, so wird diese im 
Wort DRUCKE auf den Bildschirm ausgegeben. 


Das Wort DRUCKE führt auch eine Formatierung der Ausgabe durch. 
In einer Zeile werden jeweils 5 Zahlen ausgedruckt. Dazu wird eine 
Variable ZEILE benutzt, deren Anfangswert 4 ist. 


Nach der Ausgabe einer Zahl wird der Wert dieser Variablen geholt und 
verglichen, ob dieser Wert O ist. Ist dies der Fall, so wird CR für eine 
neue Zeile ausgegeben und der Wert von ZEILE wieder auf 4 gesetzt. 
War der Wert nicht Null, so wird eins abgezogen und der Wert zurückge- 
speichert. 


Das Programm ist in Abbildung 3.7 gezeigt. 


3.6.4. Hexdump 

Mit den Befehlen C@ und C!, die einzelne Byte aus dem Speicher lesen 
oder abspeichern, ist es leicht eine Hexadezimalausgabe auf den Bild- 
schirm zu programmieren. In den meisten FORTH-Versionen ist dies 
unter dem Wort DUMP schon vorhanden. 

HEX 1000 10 DUMP 

listet den Inhalt der Zellen 1000 bis 1010 Hex auf den Bildschirm aus. 
Hier wollen wir das Programm neu schreiben, wobei die Zahl hinter der 


Adresse die Zahl der Zeilen, die ausgegeben werden sollen angibt. 


Das Programm zeigt Abbildung 3.8. 


( IIIXDUMP ) HEX 
ı /EILE DUP DUP 8 + SWAP DO I C@ 3 .R LOOP ; 
ı NR CR CR 6 SPACES 8 0 DO I 3 .R LOOP CR ; 


ı AU DROP 20 ; 


ı ATARI DUP 7D = IF AO THEN DUP FD = IF AO THEN 
DUP IC = IF AO THEN DUP 7E = IF AO THEN 
DUP 1D = IF AO THEN DUP 9C = IF AO THEN 
DUP 1E = IF AO THEN DUP FE = IF AO THEN 
DUP IF = IF AU THEN 
DUP FF = IF AO TEEN 
DUP 90 = IF AO THEN ; 


ı ASCII DUP DUP & + SWAP DO I C@ ATARI EMIT 
2 SPACES LOOP ; 


ı HEDUMP CR DUP .„. SPACE ZEILE CR 8 SPACES 
ASCII8 +; 


ı DUMP ( ADR N --> 
NR 0 DO HDUMP LOOP ; 
DECIMAL 


IX OK 
1000 5 DUMP 


012234567 


100085 53 54 41 54 C5 F2 FE 
Ca u ee ee: 

I008 5E 8 0 083 42 AC CR 
B LK 

1010 0 ICS5SE 8 0 083 3E 


1018 49 CE C1I0C5E 8 BO 
IN 


Ar 


1020 A4 AD AF 44 C5 16 ]1C 5E 
SM ODE “ OK Abbildung 3.8 
Hexdump 
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Es wird in die Zahlendarstellung HEX umgeschaltet. Dann wird mit 
ZEILE die Ausgabe einer Zeile definiert. Die Anfangsadresse wird 
dupliziert und nachdem 8 dazuaddiert wurde, werden die beiden 
Zahlen vertauscht. Sie sind die obere und untere Grenze der folgen 
den Schleife. Der Inhalt der einzelnen Zellen (l ist Laufparameter der 
Schleife und somit gleichzeitig die Adresse der Speicherzelle) wird ge- 
holt und in einem 3 Zeichen breiten Zahlenfeld rechtsbundig ausge: 
geben. 


Mit NR wird eine Überschrift O bis 7 über der ersten Zeile ausgegeben. 


Der Inhalt der Speicherzeilen soll gleichzeitig, eine Zeile tiefer als 
ASCII-Zeichen ausgegeben werden. 

Dieses Programm wurde auf einem ATARI! 800 entwickelt. Dieser 
Rechner verwendet einige Zeichen zur Cursorsteuerung und zum 
Löschen des Bildschirms oder von Zeilen. Das Zeichen 7D löscht, 
wenn es mit EMIT ausgegeben wird, den Bildschirm. 


Dieses und die anderen Zeichen werden unter dem Wort ATARI durch 
Leerzeichen ersetzt. Das vorher definierte Wort AO verringert die 
Schreibarbeit. Dieses Umsetzen der Zeichen wird durch einzelne IF... 
ENDIF Abfragen erledigt. Dabei wird allerdings, auch wenn z. B. das 
Zeichen 7B gleich beim ersten Vergleich gefunden wird, alle anderen 
Vergleiche trotzdem ausgeführt. 


Eine bessere und schnellere Möglichkeit wäre es, die Abfrage durch ge- 
schachtelte IF... ELSE... ENDIF Anweisungen zu programmieren. 
Eine solche Abfrage für 3 verschiedene Zeichen zeigt das folgende 
Beispiel: 


RO DECP ZO 


up 7D IE Ab ELSF 
BUP IC = IF AU LESE 
DU ID = IR AU ELSE 


THUN TTEN TEEN 


ATAKI 


Wird in diesem Fall das Zeıchen 7D yefunden, so wird AO ausgeführt 
und alles nach dem ELSE bis zum letzten THEN ubergangen. 


llrdings sind es nur wenige Steuerzeichen, so daß diese Art der Pro- 
naninierung keine wesentliche Beschleunigung der Programmlaufzeit 
ul sich bringt. 


Mit ASCII wird die gleiche Zeile nunmehr als ASCII-zeichen ausge- 
geben, 


In HDUMP wird die Adresse ausgegeben, danach Zeile und ASCII. Mit 
I ı wird die Anfangsadresse der nächsten Zeile berechnet. 


Bus alles ist dann in dem Wort DUMP zusammengefasst. 


Ihe Eingabe HEX 1000 8 DUMP druckt den Inhalt der Speicher- 
zıllen 1000 HEX bis 103F HEX aus. 


3.7. Zusammenstellung der Definitionen 
DO...LOOP (ntn2n3 --) ni) 


Schleife wird von n3 bis n2 in Einerschritten durchlaufen. n2 ) n3 


| (nin2n3 --) nIn2n3n ) 


Der Laufparameter n der Schleife wird auf den Stapel gelegt. 


+LOOP (nin2n3 --) nin2) 


Der Zählparameter der Schleife wird um n3 verändert. 


Ä (nin2n3 --)nlf) 


f = 1 wenn n? (n3 


) (nin2n3 --)nlf) 


f= 1 wenn n2 }n3 
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= (niIn2n3 --) nIlf) 


f= 1 wenn n2=n3 


[eX {nIn2n3 --?’nin?2f) 
f=1wennn3(0 


0= (nin2n3 --) nin?2f) 


f=1wennn3=0 


IF (WORTE) ENDIF (THEN) 
IF (nin2f --)nin2) 


Die (WORTE) zwischen IF und ENDIF werden nur ausgeführt, 
wenn f = 1 ist. 


IF «WORTE1) ELSE (WORTE2 ENDIF (THEN) 
IF (nin2f --)n1n2) 


Die (WORTE 1) werden ausgeführt, wenn f = 1 ist. Mit f = O werden 
die (WORTE2) ausgeführt. 


BEGIN (WORTE) (BEDINGUNG) UNTIL 
UNTIL (nIin2f--)nin2) 


Die Ausführung der (WORTE) wird solange wiederholt, bis die 
(BEDINGUNG) erfüllt, f = 1 ist. 


BEGIN (WORTEN) (BEDINGUNG) WHILE (WORTE2) REPEAT (WORTE3) 
WHILE (nin2f--)nmin2) 
Sclange die Bedingung, f = 1, erfüllt ist, wird (WORTE1) und 


(WORTE2) durchlaufen. Mit f = O wird (WORTE2) übersprungen 
und (WORTE3) ausgeführt. 


PIY {nin2n3 --) nIn2n3c) 


Warten auf Tasteneingabe. 
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NOTIZEN 


4 Zahlensysteme 


4. Zahlensysteme 


In den bisherigen Beispielen wurde ausschließlich das 16 bit ganzzahlige 
/ahlensystem verwendet. Obwohl hier der Zahlenbereich nur von 

32768 bis +32767 reicht, ist er doch für die meisten Anwendungen 
in Steuerungs- und Regelsystemen ausreichend. Die für die Um- 
wandlung von analogen Spannungen in digitale Zahlen verwendeten 
Wandler haben selten mehr als 12 bit Auflösung. Das entspricht einem 
Zahlenbereich von —2048 bis +2047. 


Müssen diese Zahlenwerte umgerechnet werden, so ist es in den meisten 
Fällen nicht notwendig auf Fließkommarechnung umzusteigen, sondern 
man wird eine Skalierung der Werte vornehmen. Dies ist eine Ver- 
lahrensweise, wie sie oft in der Analogrechentechnik angewendet wird. 


Der Vorteil dieser Umrechnung liegt darin, daß man weiter die 
schnellen 16 bit Rechenoperationen verwenden kann und nicht die 
langsamen Fließkommaroutinen. 


4.1. Skalierung von Rechenabläufen 


Das Wort Skalierung bezeichnet die Verwendung eines anderen Maß- 
stabs (scale) bei der Umrechnung von Zahlenwerten. 


Betrachten wir folgendes Beispiel: 

Werden in einem Programm Geldbeträge angegeben, so wird als Einheit 
für diese Angabe 1 DM (eine Deutsche Mark) verwendet. Die Angabe 
von 1.25 bedeutet eine Mark + 25/100 Mark. Die Zahl 1.25 ist eine 
Gleitkommazahl. 
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Diese Gleitkommazahl können wir durch Wahl eines anderen Maß: 
stabs, einer anderen Einheit in eine Festkommazahl umwandeln. Ver 
wenden wir anstatt der Einheit Mark die Einheit Pfennig für die An 
gabe eines Geldbetrages, so haben wir statt 1.25 DM 125 Pf, und somit 
eine Festkommazahl. 


Ein zweites Beispiel: 

Mit einem 8-bit Analog-Digital Wandler wird eine Temperatur in einem 
Bereich zwischen 0° Celsius und 100° Celsius gemessen. Die Auflösung 
dieses Temperaturbereichs mit einem 8-bit Wandler beträgt 100/255 
= 0.3921 °C 


Für die Umrechnung der gemessenen 8 bit Zahl in die entsprechende 
Temperatur verwenden wir die Zahl 392 als Einheit. 

In FORTH gibt es für diese Skalierungsberechnung einen eigenen 
Operator */. Die Definition dieses Operators ist 


* (nin2n3 --)n) 
n=n1*n2/n3 


Das Besondere dieses Operators ist aber, daß das Ergebnis der Multi- 
plikation als doppelt lange Zahl zwischengespeichert wird. Diese 
doppelt lange Zahl wird durch n3 geteilt. 


Für die Umrechnung der Messwerte in den Temperaturwert definieren 
wir uns ein Wort SCALE. 


: SCALE 392 100 *#/ „. ; OK 
Damit errechnet sich: 233 SCALE 913 OK 
232 SCALE 909 OK 


231 SCALE 905 OK 


Die Zahl 913 ist als 91.3 zu interpretieren, da wir mit 392 multipli- 
zieren, aber nur durch 100 teilen. 


Der Messwert 232 = 90.9 °C bedeutet aber nur, daß die Temperatur 
zwischen 90.59 und 91.3 °C liegt. Der angegebene Zahlenwert kann nie 
genauer sein, als die Auflösung des Wandlers. 


Mut kunn die Zahlenwerte noch etwas genauer machen, wenn man den 
‚wlılsibenden Rest bei der Division durch 100 bedrachtet und die letzte 
‘‚tulle des Ergebnisses entsprechend aufrundet. Dazu kann man den 
yunator */MOD verwenden. 


-/MOD (nin2n3 --)nn4) 


n4=n1»*n2/n3 n = Rest der Division. 
Mit winer neuen Definition von SCALE 
ı BCALE 392 100 */MOD SWAP 50 + 100 / +. OK 


ahulten wir 231 SCALE 906 Ok 


(u dieser Zahlenwert aber auch nur auf +. 0.4 % genau ist, wird es für 
ılin meisten Anwendungen genügen, die Temperatur in ein Grad 
'ichritten anzugeben. Dazu das folgende Programm in Abbildung 4.1 


v0 MESEMERT-UMRECHHUMG 5 
ROUND Suar Saga + ja +: 


2 SCALE 782 Jake &Müb FOUND 5 


Abbildung 4.1 
Messwert-Umrechnung 


Mit dem Taschenrechner hätte man den Messwert 233 folgendermaßen 
umgerechnet: 


233 


7: 


* 100 = 91.372549 


In vielen Fällen wird ein Messergebnis in dieser Form angegeben. Dabei 
wird aber nicht beachtet, daß die Zahlen nach dem Dezimalpunkt, mit 
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Ausnahme der ersten Stelle, reine Zufallszahlen sind und in keinem 
Zusammenhang mit dem Messwert haben. 


4.2. Doppelt lange Zahlen 


Falls die Genauigkeit von 16 bit Zahlen nicht ausreicht, wird mit 
doppelt langen 32 bit Zahlen gerechnet. Der Zahlenbereich reicht dann 
von — 1.073.741.824 bis + 1.073.741.823. 


Eine doppelt lange Zahl wird mit einem Dezimalpunkt eingegeben. An 
welcher Stelle dies geschieht ist völlig gleichgültig. 


123.4567 
1.234567 


1234567. 
1.23.567 


sind völlig gleiche doppelt lange Zahlen. In poly-FORTH kann ein 
beliebiges numerisches Zeichen verwendet werden wie z.B. 


6/02/82 


Dies wird auch als doppelt lange Zahl in den Stapel übernommen. 


Für die Verarbeitung von doppelt langen Zahlen sind folgende Worte 
vereinbart: 


D. ( dId2d3 --) did2 ) 


Ausgabe von d3 


D+ (d1d2d3 --) did) 


d ist die Summe von d! und d2 


D- ( dId2d3 --) did) 
d ist die Differenz von d2 und d] 


I 1,wennd2=d3 


DO= ( dId2d3 --) did2f) 


f{=1wennd=0 


D( ( dIid2d3 --) dif ) 
f= 1 wenn d3 (d2 


DMAX (d1i1d2d3 --) did) 
d = d2 wenn d2 ) d3 und d = d3 wenn d3 ) d2 ist. 


DMIN (d1d2d3 --) did) 
d = d2 wenn d2 ( d3 und d = d3 wenn D3 ( d2 ist. 


D.R ( d1d2d3 --) di! ) 


Druckt d2 in einen d3 breiten Zahlenfeld aus. 


Beispiele: 
10000000. 1. D+ D. 10000001 OK 


oder 
1000000020. 1. D+ D. 1000000021 OK 


Dies ist eine Addition, bei welcher die meisten Basic Interpreter keine 
yenauen Rechenergebnisse mehr liefern. 


Das bedeutet aber, daß man mit FORTH Geldbeträge bis zu 10 Millionen 
DM auf den Pfennig genau berechnen kann. 
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Weitere Beispiele brauchen hier nicht gemacht zu werden, da die Be 
fehle wie bei einfach langen Zahlen ablaufen. 


4.3. Gemischte Zahlenoperatoren 


Bei den Rechenoperationen für doppelt lange Zahlen fehlen die Multi 
plikation und die Division. Eine Multiplikation zweier 32 bit Zahlen 
würde ein 64 bit Ergebniss liefern. Zwei Operatoren erlauben aber das 
Arbeiten mit gemischten, also 16 bit und 32 bit Zahlen. Das Wort M« 
bildet das 32 bit Produkt zweier 16 bit Zahlen. 


M* (nin2 --) di) 
d1 32 bit Produkt von n2 « nl. 
Beispiel: 


100 400 M* D. 40000 CK 


Das Wort M/ dividiert eine 32 bit Zahl durch eine 16 bit Zahl, das Er- 
gebnis ist ebenfalls eine 16 bit Zahl. 


Beispiel: 


40000. 20 M/ „. 2000 OK 


Diese gemischten Zahlenoperatoren wird man immer dann verwenden, 
wenn bei einer Multiplikation das Produkt größer als 32767 wird. 


Einen anderen gemischten Operator haben wir früher schon verwendet, 
nämlich den Scalierungsoperator */ . Die Definition unter Verwendung 
von Mx und M/ wäre dann: 


*/ M* M/ ; 


AA Zahlen ohne Vorzeichen 


tin 16 bit Zahl auf dem Stapel wird normalerweise als eine 15 bit 
’ualll plus Vorzeichen behandelt. Das Konvertierungswort NUMBER 
‚ha FORTH intern beim Compilieren oder beim Interpreter verwendet, 
überprüft bei der Eingabe nicht, ob der Zahlenbereich überschritten 
wind oder nicht. Bei der Eingabe der folgenden Zahlen erhalten wir als 
Ausyube: 


65535 . -1 OK 
65536 . O0 OK 
65537 „1 OK 


Wird also eine Zahl größer 65535 eingegeben, so wird sie als n — 65536 
unwaundelt. 

irse Zahlen kann man aber auch als Zahlen ohne Vorzeichen be- 
Iınchten. 


Mit 65535 U. erhält man wieder die Zahl 65535 als Ausgabe. 


U. ({nlu --) ni) 
Ausgabe der Zahl im TOS als Zahl der Vorzeichen (0 bis 65535). 


Bei einigen Rechnern werden Adressen, die größer als 32767 sind als 
negative Dezimalzahlen angegeben. Die Umrechnung einer solchen 
Dezimaladresse in die Hexadezimaladresse zeigt das folgende Beispiel: 


-151 HEX U. FF69 OK 


Hätten wir nur die normale Ausgabe verwendet, so hätten wir 


-151 HEX „ -97 OK 
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erhalten. 
Folgende Operationen sind mit Zahlen ohne Vorzeichen möglich: 


Ux {ulu2 --) ud ) 


Zwei 16 bit Zahlen ohne Vorzeichen ul und u2 werden multi- 
pliziert. Das Ergebnis ist ein 32 bit Produkt ebenfalls ohne Vor- 
zeichen. 


Beispiel: 


32767 DUP U*X 0 D.R 1073676289 OK 


U/MOD ( udul --) u2u3 ) 


Dividiert eine 32 bit durch eine 16 bit Zahl, beide ohne Vor- 
zeichen. Das Ergebnis ist der Quotient und der Rest. Beides 16 
bit Zahlen ohne Vorzeichen. 


ut (ulu2 --) f) 
f = 1 wenn ul (u2 ist, beides 16 bit Zahlen ohne Vorzeichen. 
Beispiel: 
1 65535 U< . 1 OXK 


aber: 
1 65535 <.0 0X 


In FORTH 79 ist auch eine Schleifenbildung mit Zahlen ohne Vor- 
zeichen definiert. 


Do (ulu2 --) ) 


u1 obere Grenze, u2 untere Grenze. 


'LOOP (u--)) 


u Schrittweite. 


Wir bei der DO... +LOOP Schleife muß der Zählparameter von /LOOP 
„uujegeben sein. 


Nenpiel: 
T 60000 0 DO CR I U. 4098 /LOOP ; 


T 

0 
4098 
8196 
12294 
16392 
20490 
24588 
28686 
32784 
36882 
40980 
45078 
49176 
53274 
57372 OK 


4.5. Formatierung von Zahlenausgaben 


In den meisten Fällen werden Zahlen formatiert ausgegeben. Ein Preis 
2. B. als 2486.23 DM die Uhrzeit als 10:21:32 oder eine Telefon- 
nummer als 0731-817536. FORTH stellt für solche Fälle Worte zur 
Formatierung zur Verfügung. 


Beispiel: 
Wir definieren ein Wort uD. das uns eine 32 bit Zahl als vorzeichenlose 


Zahl ausgibt. Die Definition lautet: 


: UD. <# #S #> TYPE SPACE ; 
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Dabei bedeutet: 


(# (ud --) ud ) 


Beginn der Zahlenformatierung. 


#5 (ee) 


Alle Stellen der Zahl werden zu ASCII-Zeichen gewandelt. 


# ( --) adın ) 


Ende der Formatierung. Auf dem Stapel bleibt die Adresse der 
ASCII-Zeichenkette und die Anzahl der Zeichen. 


TYPE (adrn --) ) 


Ausgabe einer Zeichenkette. Auf dem Stapel muß die Adresse 
dieser Zeichenkette und die Zahl der Zeichen sein (siehe Kapitel 7). 


SPACE (n--)n) 


Ausgabe eines Leerzeichens. 


Beispiel: 


65535 DUP U* UD. 4294836225 OK 


Bei dieser Umsetzung einer Zahl in eine Zeichenkette können nun auch 
andere ASCII-Zeichen eingefügt werden. Wir wollen ein Wort .DM 
definieren, das uns eine Zahl (doppelt-lang) mit einem Dezimalpunkt 
vor den letzten beiden Stellen ausgibt. Also 65358 als 653.58 . Unsere 
Recheneinheit für Geldbeträge sei 1 Pfennig. 


: .DM <t # # 46 HOLD #S #> 
TYPE SPACE ; 


Beispiel: 65358. .DM 653.58 OK 


In dieser Definition sind 2 neue Worte hinzu gekommen. 


# ME) 


Umwandlung einer Stelle. 


HOLD (c=--)) 


Einfügen des ASCII-Zeichen c in die Zeichenkette. 


In der Definition .DM wird die Umsetzung der Zahl mit (# begonnen. 
Dann werden die beiden letzten Stellen gewandelt. Die Umwandlung 
hqinnt also bei den letzten beiden Stellen. Nun wird mit 46 HOLD 
ılas ASCII-Zeichen für einen Dezimalpunkt in die Zeichenkette einge- 
tuhrt. Das Wort #5 wandelt nun die restlichen Stellen um und #) be- 
schließt die Formatierung. 


In dem Beispiel wurde die Zahl 65358 als doppeltlange Zahl (65358.) 
vingegeben. Liegt nur eine einfach lange Zahl vor, die formatiert werden 
aoll, so muß vor der Formatierung eine Null auf den Stapel abgelegt 
werden. Die Eingabe 


65358 0 .DM 


bringt ebenfalls die Ausgabe 


653.58 OK 


Das folgende kleine Programm rechnet Sekunden in Stunden, Minuten 
und Sekunden um (aus L. Brodie, FORTH Inc., Starting FORTH). 


: SEXTAL 6 BASE ! ; 
:00 # SEXTAL # DECIMAL 58 HOLD ; 
SEC <# :00 :00 #S #> TYPE SPACE ; 


Zuerst wird ein Wort SEXTAL definiert, das eine Rechnung in einem 
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6er Zahlensystem ermöglicht. Denn bei der Wandlung in Sekunden oduı 
in Minuten kann die letzte Stelle die Zahlen Null bis Neun annehmen, 
die nächste Stelle aber nur die Zahlen Null bis Fünf. Dies wird in de: 
Definition :00 berücksichtigt. Zuerst wird in Dezimalrechnung eine 
Stelle gewandelt, dann auf Rechnung im 6er System umgeschaltet un«d 
die nächste Stelle gewandelt. Danach wird auf Dezimalrechnung zu 
rückgeschaltet und mit 58 HOLD ein Doppelpunkt ausgegeben. Das 
Wort SEC wandelt zuerst die Sekunden, dann die Minuten und den ver 
bleibenden Rest in Stunden um. 


3601. SEC 1:00:01 Ok 


Auf ähnliche Weise lassen sich auch andere Zahlen formatieren und 
ausgeben. 


4.6. Gleitkommazahlen 


Bei den bisherigen Berechnungen haben wir nur einfach lange (16 bit) 
und doppelt lange (32 bit) Zahlen verwendet. Natürlich gibt es auch 
FORTH Worte zum Rechnen in Gleitkommadarstellung. Aber es liegt 
der Philosophie der Sprache zugrunde, daß das Rechnen damit ver- 
mieden wird. 


Am Anfang dieses Kapitels haben wir auf das Skalieren und Rechnen 
in Einheiten schon hingewiesen. Bei vielen Anwendungen sind die 
Einheiten durch die Auflösung der Wandler gegeben. Bei einem 8 bit 
Wandler sind die gewandelten Zahlen ganze Zahlen im Bereich von O 
bis 255 und nicht 0.00 bis 255.00 . Bei kaufmännischen Berechnungen 
wird die Einheit immer ein Pfennig sein. Wir haben gesehen, daß durch 
die Verwendung von doppelt langen Zahlen, man Geldbeträge bis 10 
Millionen DM in Pfennigeinheiten ausdrücken kann. 


Es ist also offensichtlich, daß man sehr oft auf die Rechnung in Gleit- 
kommadarstellung verzichten kann. Gleichzeitig verzichtet man dabei 


auf die auftretenden Rundungsfehler. 


In den wenigen Fällen, wo man auf eine Berechnung in Gleitkomma- 


dwatellung nicht verzichten kann, wird man ein Gleitkommapaket, 
ılaa zu den meisten FORTH-Versionen erhältlich ist, hinzuladen. 


Auf sine Darstellung der definierten Worte sei hier verzichtet, da diese 
„it standartmässig vereinbart sind. Sie können aus den jeweiligen Be- 
u humibungen entnommen werden. 


4 ]. Zusammenstellung der Definitionen 


“/ {nin2n3 --)n) 


n =n1 * n2 / n3. Das Produkt ni x n2 wird doppelt lang be- 
rechnet. 


*/MOD (nin2n3 --)n4An) 


n=n1 *n2/n3 Rest der Division ist nd 


D. ( d1d2d3 --) d1d2) 


Ausgabe von d3 


D+ ( dIid2d3 --) did) 


d ist die Summe von di und d2 


D-- (d1d2d3 --) did) 
d ist die Differenz von d2 und di 


D= ( d1d2d3 --) dif ) 
f= 1, wenn d2 = d3 
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DO= ( dId2d3 --) did?2f) 
f=1wennd=0O 


D (dId2d3 --) dif 
f= 1 wenn d3 (d2 


DMAX (did2d3 --) did) 
d = d2 wenn d2 ) d3 und d = d3 wenn d3 ) d2 ist. 


DMIN (d1d2d3 --) did) 
d = d2 wenn d2 (d3 und d = d3 wenn d3 (.d2 ist. 


D.R ( dId2d3 --) di) 


druckt d2 in einen d3 breiten Zahlenfeld aus. 


M«+ ({n!n2 --)di) 
di =n1 *n232 bit Produkt. 


M/ (d!ni --)n2) 
n2=d1/nI 
U. (nlu--)nm!) 


Ausgabe von u als Zahl ohne Vorzeichen. 


U/MOD ( udul --) u2u3) 


Dividiert eine 32 bit Zahl durch 16 bit Zahl. u3 ist Quotient, 
u2 der Rest der Division. Alles Zahlen ohne Vorzeichen. 


Tr ee! 


‚gleicht die beiden obersten Zahlen in Stapel als Zahlen ohne 
uzeschen. 


ud ’LOOP 


IH) (ulu2 --) ) 


„luhere Grenze, u2 untere Grenze. 


I00P (u=--)) 


.ı hehrittweite. 


27 (ud --) ud ) 


Ikinn der Zahlenformatierung. 


u ei) 


Wandlung einer Zahlenstelle 


HOLD (c--)) 


Einfügen des ASCII-Zeichens c in die Zeichenkette. 


#) ( --) adrn ) 


Ende der Formaterung. Auf dem Stepel bleibt die Adresse der 
Zeichenkette und die Zahl der Zeichen. 
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TYPE (adrn --) ) 


Ausgabe einer Zeichenkette, deren Anfang bei adr gespeichert isı 
und die n Zeichen lang ist (siehe Kapitel 7). 


SPACE ( --)) 


Ausgabe eines Leerzeichens (siehe Kapitel 7). 


5 Textfeld (SCREEN) 
und Editor 


". Textfeld (SCREEN) und Editor 


Iimı den bisherigen Beispielen wurde zum Teil schon für die Eingabe 
uines Programms sog. SCREEN’s verwendet. Als deutsche Übersetzung 
ılinses Wortes wird das Wort Textfeld verwendet. Für die Programm- 
ımtwicklung ist die Eingabe solcher Textfelder unbedingt notwendig. 
Hınrachten wir dazu nochmals das folgende Beispiel: 


Auf dem Wörterbuchstapel befinden sich die Worte: 


‚S 

TIEF 

‘Ss 

SAVE usw. 


Hier wird das Wort ’S zum Beispiel in TIEF und in .S verwendet. Ist 
nun bei der Definition dieses Wortes ein Fehler gemacht worden, so 
jenügt es nicht, ‘S neu zu definieren, sondern man muß 'S vergessen 
und somit auch TIEF und .S . Danach können diese Worte neu defi- 
niert werden. Dies kann bei langen Programmen sehr umständlich sein. 
Deswegen wird ein Programm in eine Screen, in ein Textfeld mittels 
eines Editors geschrieben und diese dann durch einen Befehl compiliert. 


5.1. Textfeld (Screen) 
In der Abbildung 5.1 ist ein Textfeld abgebildet. 


Dieses Textfeld besteht aus 16 Zeilen zu je 64 Zeichen. Es belegt also 
lk Byte Speicherplatz. Diese Festlegung ist nicht überall gleich. Die 
Textfelder verschiedener FORTH-Versionen können davon abweichen. 
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-) t CLASS UTILITIES 2 EF 88 MAR 82 ) EMPTY 

1 ?STOP 18B 8 DO DUP I = IF LERVE THEN I . LOOP DROP ; 

2 TIMES 11 1 DO DUP I = „. LOOP DROP ; 

3 : TIMES-TABLE CR 13 1 DO 13 1 DO I I = „ LOOP CR LOOP ; 

4 : WINDOW CR 1 + SWAP DO ZDUP 1+ SWAP DO I J = . LOOP CR LOOP 
5 

6 

7 

8 


2DROP ; 
GREED CR i + 1 DO I . ." FOR YOU ” 5 SPACES I 1 + 1 DO I 
LOOP ." FOR ME " CR LOOP ; 
STARS 8 DO ." =" LOOP CR ; 

E) BOX CR 8 SWAP 8 DO ZDUP DO ." * " LOOP CR LOOP ZDROP ; 
ıa \STARS 8 DO I SPACES 18 4 DO ." * " LOOP CR LOOP ; 
11 : STARS 1- B SWAP DO I SPACES 18 8 DO ." * " LOOP CR -1 
12 +LOOP ; 

13 : XSTARS CR ROT ROT DO DUP STARS DUP N\STARS LOOP DROP ; 
14 ZIP CR BEGIN DUP SPACES 18 @ DO ." =“ " LOOP 1 CR - DUP 
15 NOT END DROP ; 
Abbildung 5.1 
Textfeld 


Jedes Textfeld ist durch eine Zahl gekennzeichnet. Mit 763 LIST wurde 
dieses Textfeld auf den Drucker ausgegeben. Im Normalfall wird die 
Ausgabe auf den Bildschirm erfolgen. 


Die Zeilen sind von O bis 15 durchnummeriert. Die erste Zeile enthält 
Kommentar. Der Kommentar beginnt mit einem ( Zeichen gefolgt von 
einem Leerzeichen und geht bis zum Zeichen ) . In diesen Kommen- 
tar sollte die Aufgabe, der Programmierer und das Datum der Erstellung 
dieses Textfeldes enthalten sein. In diesem Beispiel handelt es sich um 
ein Textfeld, in das Aufgaben während eines Seminars bei FORTH 
Inc. eingetragen wurden. In den folgenden Zeilen sind dann die Defi- 
nitionen aufgeführt. Eine neue Definition sollte immer am Anfang einer 
Zeile beginnen (siehe auch Anhang C). 


Ist mit Hilfe eines Editors ein Textfeld erstellt worden, so wird es mit 
dem Wort FLUSH auf Diskette geschrieben. Mit 763 LOAD wird dieses 
Textfeld compiliert. 


Ein Textfeld ist auch gleichzeitig ein Datenfeld auf einem externen 
Speicher, in den meisten Fällen eine Diskette. Die Abbildung 5.2 zeigt 
den Zusammenhang zwischen Datenfeld auf Diskette und Datenfeld im 
Rechner. Wird mit 763 LIST ein Textfeld aufgerufen, so wird vom 
Betriebssystem nachgesehen ob dieses Datenfeld schon im Speicher 


“hanelon ist. Wenn nicht, wird es in einen freien Block gelesen und 

 durt auf den Bildschirm ausgegeben. Dabei wird in den Kopf dieses 
sstonfeldes im Speicher die Nummer des Textfeldes und ein UPDATE 
.t qunchrieben. Dieses Bit wird auf Eins gesetzt, wenn in dem Textfeld 
“ 'iuricher eine Änderung durchgeführt worden ist. Das Wort 
“DAT kann auch als Befehl ausgeführt werden. 


UPDATE BIT 
FELDNUMMER 


DISKETTE 


Abbildung 5.2 
Textfelder auf Diskette und im RAM 
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Die Zahl der zur Verfügung stehenden Datenfelder ist natürlich dureh 
die Speicherkapazität der Diskette gegeben. Auf einer Diskette mıı 
80k Byte Speicherplatz können also nur 80 Datenfelder gespeichur! 
werden. 


Ebenso wie bei LIST wird auch bei LOAD ein Datenfeld von den 
Diskette geholt, wenn es noch nicht im Speicher vorhanden ist. Beı 
der folgenden Compilierung werden die Definitionen ins Wörterbuchı 
eingetragen. 


Ist dieses Textfeld aber vorher schon einmal übersetzt worden, so wirt 
bei der zweiten Compilierung laufend die Meldung (NAME) NOI 
UNIQUE ausgegeben werden. Um dies zu vermeiden, und um gleich 
zeitig zu verhindern, daß der Wörterbuchstapel mit fehlerhaften Defi 
nitionen anwächst, wird man vor Beginn der Definitionen eine leere 
Definition, z.B. 


: TASK ; 
einführen. 
Nach der ersten Compilierung kann man mit 
FORGET TASK 


alle bisherigen Eintragungen löschen. Dieses FORGET TASK kann 
aber erst nach der ersten Compilierung in das Textfeld eingetragen 
werden, da sonst die Fehlermeldung TASK ? erscheint. 


In Poly-FORTH ist das Wort EMPTY definiert. Dieses löscht das vom 
Benutzer aufgestellte Wörterbuch und kann somit immer gleich in der 
ersten Zeile nach dem Kommentar aufgeführt werden. 


Reicht für ein Programm ein Textfeld nicht aus, so kann man mit dem 
Wort — - } das folgende Textfeld an das bisherige anhängen. Die Compi- 
lierung wird dort fortgesetzt. Eine Beendigung der Compilierung 
erfolgt entweder am Ende eines Textfeldes oder bei dem Wort ;S. 


Soll der Inhalt eines Textfeldes gelöscht werden, so geschieht dies mit 
dem Wort CLEAR. 


763 CLEAR 


ht den Inhalt des Textfeldes 763. Weiterhin kann man mit COPY 
“ “tlolder kopieren. Mit 


763 765 COPY 


wills Textfeld 763 nach 765 übertragen. 


N? Der Editor 


‘um Erstellen eines Textfeldes wird ein Editor benötigt. Bei den auf 
«tschiedenen Rechnern implementierten FORTH-Versionen werden 
„terschiedliche Editoren verwendet. Diese sind entweder bildschirm- 
„ejentiert (OS-FORTH ATARI, FORTH:-79 APPLE) oder Zeilenorien- 
hut (poly-FORTH, APEX-FORTH ATARI) um nur zwei Beispiele 
su nennen. Deshalb soll auf eine ausführliche Beschreibung des Editors 
verzichtet werden und nur kurz auf den zeilenorientierten Editor von 
ımly FORTH eingegangen werden. 


Mit 
763 LIST 


wird das Textfeld 763 auf den Bildschirm gebracht. Damit kann es nun 
«litiert werden. Durch Eingabe von L (ohne Nummer) wird der Editor 
«ufgerufen und das durch LIST aufgerufene Textfeld auf dem Bild- 
schirm angezeigt. Soll nun Text in eine Zeile eingeführt werden, so wird 
mit 5 T zZ. B. die Zeile 5 angewählt. Der Isıhalt dieser Zeile wird unten 
am Bildschirm ausgegeben. 


Am Ende dieser Ausgabe wird angezeigt, um welche Zeile es sich 
handelt. 


Ist in der Zeile kein Text vorhanden, so kann mit P (Put) Text in diese 
Teile eingegeben werden. 


P EINGABE VON TEXT (CR OK 


Wenn man nun mit L dieses Textfeld wieder auf den Bildschirm ausgibt, 
so muß dort 
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5 EINGABE VON TEXT 


erscheinen. 


Bei der Eingabe zeigt ein Cursor ? auf die Stelle an welcher ein Buc!ı 
stabe eingegeben wird. Wenn wir nun mit 5 T nochmals die Zeile hi 
aufrufen und mit 

P NEU (CR) 
eingeben, so ist der alte Text durch das Wort NEU ersetzt worden. 
Um nun Buchstaben in einen Text einzusetzen oder zu löschen, mul! 
man den Cursor des Editors an die passende Stelle setzen. Als Beispiv! 
enthalte die Zeile 5 den fehlerhaften Text, der korrigiert werden soll: 


HIER IST EIN FEELER 


Mit 5 T wird die Zeile in den Eingabespeicher geholt und mit F (FIND) 
die Zeichenkette FEL gesucht. 


F FEEL 


setzt den Cursor rechts neben die Zeichenkette FEL. Mit 


I H<CR) 


wird nun ein H nach FEE eingefügt und die korrigierte Zeile ausge- 
geben. 


Soll ein Buchstabe gelöscht werden, so muß er zuerst gesucht werden. 
In unserem Text, der nach der letzten Korrektur so aussieht: 


HIER IST EIN FEEHLER 
soll das zweite E gelöscht werden. Mit 
FE (CR 


wird das erste E in HIER gefunden. Bei der Eingabe von F ist aber das 


° n olmım Zwischenspeicher übernommen worden und ist dort noch 
hurdlen. Die Eingabe eines weiteren F findes das E in EIN und nach 
«it wetteren F steht der Cursor hinter dem zusätzlichen E das mit 
I NASE) gelöscht werden kann. Das Löschen einer Zeichenkette 

ahioht mit D. 


D FEE 


acht die Zeichenkette FEE in dem Wort FEEHLER mit der Wort- 
Iralypu 


5 T «CR 
F N <R 
I FE (CR 


nn nun das Wort korrigiert werden. 


I I holt Zeile 5 und setzten den Cursor auf den Anfang. F N sucht 
‚lin Zeichenkette N und setzt durch I FE danach FE in den Text ein. 


Ian Ganze hätte man aber wesentlich einfacher mit dem R (Replace) 
Hetehl machen können. Mit 


5 T «CR 
F FEEHLER (CR) 
R FEHLER (CR) 


wırd das folgende Wort auf einmal korrigiert. 


“nd solche Korrekturen durchgeführt worden, so sollte man mit 


IL.USH den Inhalt des geänderten Textfeldes auf Diskette schreiben. 


Neben diesen Befehlen für die Korrektur von Zeichen, gibt es noch 


Befehle zur Korrektur von Zeilen. Ist mit P ein Text in den Eingabe- 


speicher übernommen worden, so ist er auch nach Aufruf einer anderen 
Zeile z. B. mit T 10. noch enthalten und kann dort mit 


PCR) 


eingesetzt werden. 
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Beispiel: T &CR) 
P HALLO(CR) 
T 10CR) 
PICR) 


Durch diese Befehlsfolge wird die Zeichenkette HALLO sowohl nach 
Zeile 3 und nach Zeile 10 geschrieben. 


Durch das Wort U kann unterhalb der augenblicklichen Zeile eine neue 
Zeile eingefügt werden. Dabei werden alle bisherigen Zeilen eine Stelle 
tiefer geschoben. Der Inhalt der Zeile 15 geht somit verloren. 


Durch T 5SCR) 
U GUTEN TAG(CR) 


wird eine neue Zeile 6 mit dem Text GUTEN TAG geschaffen. 

Diese Zeile kann durch X wieder gelöscht werden. Alle darunterliegen- 
den Zeilen werden eine Zeile höher geschoben. Die Zeile 15 enthält 
Leerzeichen. 


Damit soll die Beschreibung des Editors abgeschlossen werden, da durch 
die Wandlungsfähigkeit von FORTH die meisten Editoren für die ver- 
schiedenen FORTH-Versionen einen erweiterten oder geänderten Be 
fehlssatz haben. 


5.3. Zusammenstellung der Definitionen 
(nur für Textfelder, nicht für Editor) 


( {nin2n3 --) nIn2n3) 


Kommentarbeginn. Text wird bis Jübergangen. 


LIST {nin2n3 --) nin2) 


"Ausgabe von Textfeld n3 auf Bildschirm. 


FLUSH (nin2n3 --) nin2n3 ) 


Speichern des augenblicklichen Textfeldes. 


IOAD ({niIn2n3 --) nin2) 


tompiliere Textfeld n3 


(AEAR (n1in2n3 --»’n1in?2) 


| ösche Textfeld n3 


COPY (nin2n3 --) n] ) 


kupiere Textfeld n2 nach n3 


) (niIn2n3 --) nin2n3) 


Ioxt geht im folgenden Textfeld weiter. 


Me) ( nIn2n3 --) nin2n3) 


Inde für Compilierung 


UPDATE ( nin2n3 --) nIn2n3 ) 


Kennzeichnung des augenblicklichen Textfeldes als geändert. 
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NOTIZEN 


6 Das Wörterbuch 


h Das Wörterbuch 


tv «lesem Kapitel soll der Aufbau des Wörterbuches etwas näher 
‚ıtrısucht werden. Gleichzeitig soll gezeigt werden, wie FORTH eine 
Helinition aufbaut (COMPILE TIME Verhalten) und wie dies dann als 
Inattamm abläuft (RUN TIME Verhalten). 


“uerst soll aber die Speicherplatzverteilung eines FORTH Systems am 
Henpiel des poly-FORTH gezeigt werden. 


tı 1. Speicherbelegung 
It Speicherbelegung zeigt Abbildung 6.1. 


Iım unteren Speicherbereich ist der vorübersetzte Teil von FORTH. 
Dieser enthält alle, zum Programmablauf nötigen Definitionen ent- 
wider als Maschinencode oder als Wort, unter Benutzung der bisherigen 
Definitionen. Sind diese Abläufe zeitkritisch, wie z. B. das Durch- 
„uchen des Wörterbuches, so sind diese Teile in Maschinencode pro- 
tammiert. 


Dunach folgen die vom System verwendeten Variablen. Einige dieser 
Variablen werden wir in diesem Kapitel kennenlernen. 


Hunach folgen weitere Definitionen, die im Augenblick gerade benötigt 
werden. Dies kann zum Beispiel das Wörterbuch des Editors oder des 
Assemblers sein. Auf diesen Stapel wird dann das Wörterbuch des Be- 
nutzers aufgebaut. Eine Systemvariable HERE zeigt immer auf den 
nuchsten freien Platz im Wörterbuch. Dises obere Ende des Wörter- 
buch-Stapel soll mit TOD (Top of Dictionary) bezeichnet werden. 
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BLOCK 

BUFFER 
BENUTZER 
VARIABLE 
RETURN STAPEL 


Eingabespeicher 
Parameter Stapel 


BENUTZER 
WÖRTERBUCH 
WÖRTERBUCH 
SYSTEM 
VARIABLE 


FORTH 
KERNEL 


Abbildung 6.1 
Speicherbelegung von FORTH 


"AU ıst ein Speicherbereich zu Aufnahme von Text mit maximal 64 
“iehen. Der Abstand zwischen TOD und PAD ist immer gleich. 


‘tunhalb PAD ist der Daten- oder Rechenstapel. Dieser wächst in 
Nuhntung kleiner werdenden Adressen. Die Systemvariable SO ent- 
ll den Stapelanfang, während ’S (Tick S) die Adresse angibt, bis zu 
weluher sich der Stapel aufgebaut hat. 


Imtukt über den TOS beginnt der Eingabe-Speicher. In diesen werden 
‚ln vom Tastenfeld eingegebenen Zeichen eingelesen. Der Eingabe- 
„jmwicher wächst in Richtung größer werdender Adressen. Gegen diesen 
‘wwwicherbereich wird der RETURN-Stapel in Richtung abnehmender 
Aultessen aufgebaut. 


Uler dem RETURN-Stapel werden die vom Benutzer definierten 
Variablen gespeichert und dann folgen Datenspeicher und Blöcke. 


Dies ist die Verteilung des Speichers, wie in poly-FORTH in einer LSI- 
Il verwendet. Andere Beispiele für Speicherbelegung werden später 
noch angegeben werden. Die Namen der Systemvariablen sind aber 
ulmch. 


h.2. Andern des TOD 


Im folgenden sollen nun Änderungen im TOD vorgenommen werden. 
Ilm Herauszufinden welche Adresse die erste freie Speicherzelle im 
Worterbuch hat, geben wir 


HERE . 


win, und erhalten die Zahl 23964. Diese Zahl wird je nach Rechner und 
hisher aufgebauten Wörterbuch immer verschieden sein. 


Neshalb sind die Zahlenangaben in den folgenden Beispielen nur als 


symbolische Adressen anzusehen. (Verwendeter Rechner APPLE Il 
mit FORTH-79.) 


HERE „ 23964 CK 
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Nun geben wir eine Definition 


: ADD + ; OK 


ein, und erhalten dann mit 


HERE . 23976 CK 


Die Definition ADD belegt 14 Byte in unseren Wörterbuch. Den Auf 
bau des Wortes wollen wir uns mit einem DUMP ansehen. 


23964 15 DUMP 


ADDR: 5D9C 

5D98 43 EA3 D 83 41 44 C4 C.#..ADD 
5SDAOD 3E5DB6 D9C CA3 D >]J6...#. 
5DAB 4 44 55 4D 50 0 20 0 .DUMP. . 
OK 


Diese Zahlen ordnen wir wie in Abbildung 6.2 gezeigt an. 


23976 

23974 
Parameter Feld 

23972 
Code Feld 23970 
Link Feld 23968 
Namen Feld 23966 
HERE vor der Definition —#> 5D9IC 23964 


Abbildung 6.2 
Aufbau eines Wortes : ADD +; 


“ust kommt das Namenfeld. Das erste Byte gibt die Länge des 
Hannens an. Dann folgen die ASCII-Zeichen des Namens. 

tı umserem Beispiel haben wir ein Wort, ADD, mit 3 Buchstaben ver- 
vonder. Damit erhalten wir in FORTH-79 oder poly-FORTH die 
‚lt hhe Länge für den Wortaufbau. 


In beiden FORTH-Versionen können Namen bis zu 31 Zeichen lang 
in poly-FORTH speichert aber nur die Länge und die ersten 3 Buch- 
inlen ab. 

Nach dem Namenfeld folgt das Link-Feld. Dort ist die Adresse der 
tutzten Definition gespeichert, die vor dem ADD gemacht wurde. Das 
hırık Feld wird auch als Verbindungsfeld bezeichent. 

In Gode-Feld ist die Adresse gespeichert, bei der die Ausführung des 
Wurtes beginnt. In diesem Falle ist es die Adresse der : Definition. 


ln nächstes folgt das Parameter-Feld. Dort sind die Codefeldadressen 
ılıı Worte angegeben, die in der Definition nach dem Namen angeführt 
sind. In unserem Fall ist dies die Adresse für die Definition von +, 
yetolgt von der Adresse für ; . Bei der Ausführung von ADD erfolgt mit 
‚loser Adresse der Aufruf der nächsten Definition. 


Ilm dies noch etwas zu verdeutlichen, wollen wir das Wort ADD bei 
ılın Definition eines neuen Wortes #AD verwenden. 


#AD DUP ROT ADD ; 


Din Inhalt der Zellen 23976 bis 23992 ist in Abbildung 6.3 angegeben. 


Im Namenfeld ist 83 # AD gespeichert. Das Link-Feld enthält die 
Adresse 5D9C. Dies ist die Adresse des Namenfeldes ADD. Das Code 
Ill enthält wiederum die Adresse der : Definition. Dann folgen die 
Atlressen für DUP und ROT. Für das Wort ADD wird im Parameter- 
Ind von #AD die Code-Feld-Adresse 5DA2 gespeichert. 


Wird nun das Wort #AD aufgerufen, so wird zuerst die : Definition, 
ılann DUP und ROT aufgerufen. ADD führt dann zur nochmaligen Aus- 
Iuhrung von : und damit zum Aufruf von +. Der ; in ADD führt zurück 
‚u ;in #AD. Damit ist der Aufruf von #AD beendet. 
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23964 40 DUMP 


ADDR: 5D9IC 
5D98 43 EA3 D83 41 44 C4 C.#..ADD 
5DAO 3E5DB6 D9IC CA _D 
5DA8 83 23 41 C4 9C 5DB6 D 
5DBO AA A 23 11 A2 5D A3 D $.#."]#. 
5DB8 4 44 55 4D 50 0 20 20 
5DC0O 0000009009 


OK 


: Code Feld 
Link Feld 
Namen Feld 
HERE vor der Definition —W® 5DAB 23976 


Abbildung 6.3 
Aufbau des Wortes: #AD DUP ROT ADD ; 


Ist die Codefeld-Adresse eines Wortes bekannt, so kann dieses Wort 
durch EXECUTE zur Ausführung gebracht werden. Die Codefeld- 
Adresse des + Zeichens ist in unserem Beispiel OC9C Hex gleich 3228 
Dezimal. Mit. 


1 2 3228 EXECUTE „. 3 OK 


wird die Addition zweier Zahlen ausgeführt. 


h,3. Speicherplatzreservierung 


Hei den bisherigen Definitionen wurde kein zusätzlicher Speicherplatz 
Iwnötigt. Will man aber Matrizen verarbeiten oder Messdaten auf- 
‚uuchnen, so muß man sich Platz für diese Daten reservieren. Die Defi- 
tion für diese Reservierung soll nicht sofort gemacht werden. Vorher 
„ollen einige Beispiele gebracht werden, die zeigen wie man diese 
Iuservierung definiert. 


Wır benutzen ein neues Wort (BUILDS,, das folgendes bewirkt: 
<BUILDS VECTOR 


let im Wörterbuch ein neues Wort VECTOR an, das aus dem Namens- 
teld, dem Verbindungsfeld und dem Codefeld besteht. Das Parameter- 
leld ist leer und mit HERE wird diese Adresse angegeben. Damit die 
nachste Definition nicht mit dieser Adresse beginnt, verschieben wir 
(len HERE Zeiger zu einer höheren Adresse. Die Definition von HERE 


[A| 
: HERE DP & ; 


|; wird also eine Systemvariable DP (der Name ist bei den einzelnen 
IORTH-Versionen verschieden) verwendet. 
Mit 


DP @ 10 + DP ! OK 


wird der Zeiger HERE um 10 Byte verschoben. In DP ist also die 
Atresse der nächsten freien Stelle im Wörterbuch gespeichert. Diese 
Adresse wird um 10 erhöht. 


Wird durch eine ! Operation eine Zahl in das Wörterbuch eingetragen, 
„o muß der Zeiger HERE um 2 erhöht werden, da dies dann die nächste 
Iteie Stelle im Wörterbuch ist. 


Die Wortfolge: 


HERE ! DP @ 2+ DP ! 
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wird durch das Wort , abgekürzt. 


Die Definition von , ist 


r HERE ! DP@2+DP !; 


oder unter Verwendung des gleich beschriebenen Operators +! 


LE: +, :HERE 1 .2.DE- + 5 


Mit 1000 , 2000 , 3000 , 
werden die Zahlen 1000, 2000 und 3000 ins Wörterbuch übertragen. 
Der Zeiger HERE verweist dann auf die nächste freie Stelle hinter der 


Zahl 3000. 


Für die Befehlsfolge 


<NAME> @ N + <NAME> |! 


gibt es eine abgekürzte Schreibweise +! , mit der Definition: 


+! (niIn2adr --) nl) 


Addiert n2 zum Inhalt einer Variablen, deren Adresse adr auf 
dem Stapel ist. 


Mit 


10 DP +! 


verschieben wir den Zeiger HERE um 10 Byte nach oben. 


Um nun Zahlen in diesen freien Platz speichern zu können benötigen 


wir (lie Adresse des Parameterfeldes. Diese wird uns durch den ' (Tick) 
Aynator angegeben. 


(NAME) ( nIn2 --) niIn2pfa ) 


Holt Parameterfeldadresse von (NAME) auf Stapel. 


uumit können wir in diese Adresse eine Zahl speichern: 


1024 ' VECTOR ! 


und mit 


' VECTOR & 


wieder zurückholen. 


SCR # 81 
a <« SPEICHERPLATZ RESEVIERUNG > 
1 
2 <BUILDS VECTOR DP @ id + DP ! 
3 @BVECTOR © NR -> N I 
a ‘ DECTOR SWAP 2X + & ; 
5 ss IWWECTOR C NNR -> —- 9) 
6 * VECTOR SWAP 2% + 1 35 
? 
8 
F 
ja 
11 
i2 
13 
i4 ;S 
15 


Abbildung 6.4 
Speicherplatzreservierung 
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In Abbildung 6.4 sind zwei neue Worte @VECTOR und !VECTON 
definiert worden. Mit @ VECTOR wird der Inhalt eines Speicherplatze: 
im reservierten Speicherbereich geholt. Die Nummer des Speicheı 
platzes NR ist auf dem Stapel. Da die Operation ! immer 2 Byte ab 
speichert, wird NR mit 2 multipliziert bevor es zur Adresse PFA addierı 
wird. 


Das Speichern einer Zahl in diesen Bereich geschieht durch !VECTOR 
Hier wird auf dem Stapel die Zahl n und die Nummer NR des Speicher 
platzes übergeben. Eine kurze Zwischenbemerkung: 

Für die Namensgebung wurde hier eine in FORTH übliche Form ver 
wendet. Viele einstelligen Worte bezeichnen einen bestimmten Voı 
gang, wie zum Beispiel 


. Drucke, ! Speichere oder @ Hole. 


Diese Zeichen kann man als ersten Buchstaben in einem Namen ver 
wenden, um damit zu kennzeichnen was dieses bewirken soll. Wenn wir 
den Inhalt eines Speicherplatzes auf den Bildschirm ausgeben wollen, 
definierten wir ein Wort .VECTOR als 


. VECTOR @ VECTOR 


Das Zeichen ’ wird benutzt, um die Adresse einer Konstanten oder die 
Codefeldadresse eines Wortes zu finden. Das noch nicht besprochene 
Wort ’S wird sicher die Bedeutung haben, eine Adresse des Daten- 
stapels zu finden. 


Durch die Einführung solcher Bezeichnungen und Namen wird die 
Lesbarkeit von FORTH Programmen erheblich verbessert (siehe An- 
hang BB). 
Nun wieder zum Speichern von Daten in dem reservierten Speicher- 
bereich. 


In dem reservierten Feld soll in einem Speicherplatz vermerkt werden 
an welche Stelle die nächste Zahl geschrieben wird. Dazu verwenden 
wir die Definitionen in Abbildung 6.5. 


SCH # SZ 

aA © INDIZIERTE SPEICHERUNG > 

1 

Z &£BUILDS “MECTOÜR 12 ALLOT 

= IHIT © & 1->PFA % 1 ° VECTOR 

4 I. 

= + INDEX 1 WECTÜR @ + ° WECTO 

Da u 

7: BECTOR 2% WECTOÜR + @ 4 

=) INELTOR ° NWELTÜR DUR @ 

” 2# + ' +INDEX ; 

id 

11 

12 

13 

14 5 

15 


Abbildung 6.5 
Indizierte Adressierung 


In Zeile 2 wird ein neues Wort ALLOT eingeführt. Die Definition von 
ALLOT ist: 


Mnmit wird für n Byte Speicherplatz reserviert und somit können 
Iier n /2 Zahlen gespeichert werden. 


Durch das Wort INIT wird in den untersten Speicherplatz als Anfangs- 
wurt eine Eins gespeichert. Durch +INDEX wird diese Zahl nach jedem 
Abspeichern einer Zahl um Eins erhöht. 


«VECTOR und !VECTOR sind die Worte zum Holen oder zum 
Speichern einer Zahl. 
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Programmablauf: 


IHIT Ok 

jsan IUVECTOR OK 
zaad IWECTOR CK 
saa6 !IWECTOR OK 

| WECTOR . lddd Ok 


Dieses Beispiel wurde deshalb so ausführlich gebracht, um zu zeigen, 
wie in FORTH mit virtueller Speicher gearbeitet wird. 


Zuvor werden aber noch vier Worte eingeführt, welche zur Umrechnung 
von Parameterfeld, Codefeld, Verbindungsfeld und Namenfeld verwen: 
det werden können. 


Wird mit dem ‘ (Tick) Operator die Parameterfeldadresse auf den Stapel 
geholt, so kann sie mit CFA in die Codefeldadresse umgerechnet 
werden. 


CFA ( pfa --) cfa ) 


Soll aus der Parameterfeldadresse die Namenfeldadresse bestimmt 
werden, so wird dazu das Wort NFA verwendet. 


NFA ( pfa --) nfa ) 


Die Umrechnung der Namensfeldadresse in die Parameterfeldadresse 
erfolgt durch das Wort PFA. 


PFA ( nfa --) pfa ) 


Schließlich kann aus der Parameterfeldadresse durch LFA die Ver- 
bindungsfeldadresse bestimmt werden. 


LFA ( pfa --) Ifa ) 


h.4. Virtueller Speicher 


Im letzten Beispiel wurde durch das Wort 12 ALLOT Speicherplatz 
tıı die Anzahl der gespeicherten Zahlen und Platz für 5 Zahlen ge- 
u huaffen. Was ist zu tun, wenn man große Zahlenmengen z. B. 10000 
I6 bit Zahlen speichern möchte. Wie wir im 5. Kapitel schon gesehen 
haben, sind die Blöcke im Speicher und auf der Diskette völlig gleich- 
Irechtigt. Wir werden also unsere Zahlen in diese Blöcke speichern. 
Pubei werden die Zahlen in den Blockpuffer übernommen, und dieser 
wird, wenn er voll ist, auf Diskette gespeichert. 


us Lesen einer Zahl geschieht auf folgende Weise: 

Aus dem Index wird die Nummer des Blocks und die Adresse innerhalb 
ılıs Blockes berechnet. Dieser Block wird in den RAM-Speicher gelesen 
und aus diesem Block die entsprechende Zahl ausgelesen. Der Be- 
mutzer selbst merkt kaum einen Unterschied, ob diese Zahl aus dem 
HAM oder von der Diskette geholt wird. 

Die Diskette ist die gedachte (virtuelle) Erweiterung des RAM-Speichers. 


Hus Programm dazu zeigt Abbildung 6.6. 


Sch 4 55 

H £ WIRFTUELLER SFEICHER ) 

1 48a CONSTAHNT START 

Ri IHDEX © MH -> ADR >) 2 128 

= MOD START + BLÜCK + ; 

4 

Ss ANZAHL B INDEX ; 

& +NR © NR --3 NR+1l 5 1 ANZÄHL 
7 +! UFEATE 3; 

2: '!SPEICHER ANZAHL @ INDEX ! 
7 UFDATE +NR ; 
1a : SPEICHER INDEX @ ; 

11 INIT 1 ANZAHL ! UFDATE 3 
12 INHALT CR ANZAHL 8 DUP I = 
12 IF ELSE i Bü I @SPEICHER 
14 ER LOOP THEN ; 

15 


Abbildung 6.6 
Vitueller Speicher 
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Für die Programmierung eines virtuellen Speichers ist die Kenntnis 
des Blockaufbaus der benutzten FORTH-Version notwendig. Dur 
Programm in Abbildung 6.6. benutzt eine FORTH-Version mit eine 
Blocklänge von 128 Byte. Die Berechnung der Adresse für einen Ein 
trag mit gegebenen Index erfolgt mit dem Wort INDEX. 


Der Index n wird mit zwei multipliziert und durch die Blocklängı 
/MOD geteilt. Damit ist nun auf dem Stapel der Quotient der Divi 
sion und der verbleibende Rest. 


Der Quotient gibt die Nummer des Blockes und der Rest die Lage deı 
Zahl innerhalb des Blockes an. Auf einer Diskette sind sehr viele Blöcke 
mit FORTH Programm und FORTH Definitionen belegt. Für den Beginn 
der Speicherung von Daten wird man also einen der ersten freien 
Blöcke auf der Diskette verwenden. Deshalb wird zu der berechneten 
Blocknummer ein fester Betrag, START, hinzuaddiert. 


Nach dieser Addition ist die Blocknummer auf dem Stapel. Das Wort 
BLOCK liest diesen Block von der Diskette und legt die Anfangs- 
adresse auf dem Stapel ab. Zu dieser Adresse wird der Rest der /MOD 
Division addiert. Damit ist die Adressberechnung für die gesuchte Zahl 
mit gegebenen Index beendet. 


Das Wort ANZAHL liest den Inhalt des Speicherplatzes mit dem Index 
0. Dort ist die Anzahl der bereits in die Blöcke geschriebenen Daten 
gespeichert. 


Mit +NR wird diese Zahl nach jedem Abspeichern um Eins erhöht. 
Das Wort UPDATE bewirkt, daß der bearbeitete Block als verändert 
markiert wird und damit auf die Diskette zurückgeschrieben wird. 


Es’ folgen die Worte ISPEICHER und @SPEICHER. Diese haben die 
gleiche Bedeutung wie die Worte !VECTOR und @VECTOR im voran- 
gegangenem Beispiel. 


Das Wort INIT setzt den Anfangswert von ANZAHL auf Eins. 


DasWort .INHALT gibt den gesamten gespeicherten Inhalt auf den 
Bildschirm aus. 


Hm nun nicht viele Zahlenwerte eintippen zu müssen, verwenden wir 
‚lan I SPEICHER Wort in einer Schleife. 


: TEST I DO S5&S6 !'SPEICHER LOOF 5; 


Mit 


INIT 100 TEST 


alreiben wir 99 mal die Zahl 6665 in den angewählten Block. 


Imim Arbeiten mit diesem Programm ist Vorsicht geboten. FORTH 
Int die gesamte Verantwortung für die Speicherung von Daten in die 
Hund des Programmierers. Es erfolgt keine Fehlermeldung bei Über- 
schreiten von Indexgrenzen, denn es gibt keine. Ebensowenig wird 
prüft, ob diese Daten in einen bereits beschriebenen Block gespeichert 
wurden. Bei einer falschen Wahl der Blocklänge ist es durchaus möglich, 
ılns Blöcke, die FORTH-Programm enthalten, überschrieben werden, 
wus zu einem Systemzusammenbruch führen kann. Deshalb sollte dieses 
ıogramm beim Testen mit einer Kopie des FORTH-Programm vor- 
Innommen werden. 


Diese Technik des virtuellen Speichers ist bestens geeignet, große Daten- 
ımengen zu speichern und zu verarbeiten. Darüber hinaus dürfte aufge- 
tullen sein, daß keine der in anderen Sprachen üblichen Definitionen für 
ılas Eröffnen und Schließen von Datenfiles notwendig sind. Auch die 
Angabe von Recordlänge, speziellen Parametern und ähnlichen Befehlen 
int nicht notwendig. Diese Blöcke sind einfach vorhanden und verhalten 
sich wie RAM. Daten können eingeschrieben und wieder gelesen 
werden. 


Als Programmierübung soll ein Wort definiert werden, das bei ge- 
jebenen Index die entsprechende Zahl liest, vorher aber prüft, ob an 
ıliese Stelle schon etwas gespeichert wurde. 
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6.5. Aufstellen eines eigenen Wörterbuchs 


Im Normalfall werden alle neu definierten Worte in das FORTH-Wörteı 
buch eingetragen. Zwei Systemvariable CURRENT und CONTEX] 
enthalten eine Adresse die auf das FORTH Wörterbuch verweist. Daboı 
enthält CONTEXT die Adresse des Wörterbuchs, in welchem ein Worı 
zuerst gesucht wird, und CURRENT die Adresse des Wörterbuchs, in 
welches ein Wort eingetragen wird. In den meisten Fällen wirt 
CURRENT gleich CONTEXT sein. 


Durch das Wort VOCABULARY (NAME) wird nun auf den Wörter 
buchstapel der Beginn eines neuen Wörterbuch eingetragen. Durch 
(NAME) DEFINITIONS wird CURRENT auf CONTEXT gesetzt und 
danach werden alle weiteren Definitionen in das neue Wörterbuch 
eingetragen. 


Beispiel: 


Wir definieren in FORTH ein Wort WO, das uns den Text BIN IN 
FORTH ausgibt: 


: WO .„." BIN IN FORTH " ; OK 


Nun eröffnen wir ein neues Wörterbuch TEST und tragen neue Defi- 
nitionen dort ein. 


VOCABULARY TEST OK 
TEST DEFINITIONS OK 


Hier definieren wir nochmals das Wort WO, mit dem Text: BIN IN 
TEST. 


: WO ." BIN IN TEST " ; 
WO NOT UNIQUE OK 


Wir erhalten zwar die Warnung WO NOT UNIQUE, da bei der Ein- 


tragung auch im FORTH-Wörterbuch gesucht wird, aber wenn wir jetzt 
WO aufrufen, erhalten wir die Meldung 


WO BIN IN TEST OK 


Mit dem Wort FORTH setzen wir CONTEXT auf das FORTH-Wörter- 
huch. Wenn wir jetzt WO aufrufen, erhalten wir die Meldung: 


WO BIN IN FORTE OK 


tin Variablen CONTEXT und CURRENT enthalten jetzt verschiedene 
Adıessen. CONTEXT enthält die Adresse des FORTH-Wörterbuchs, 
“nl somit wird dort zuerst nach einem Wort gesucht. CURRENT ent- 
halt die Adresse von TEST, da dort die Definitionen abgelegt werden. 


It Definition 


WOHIN ." NACH TEST " ; OK 


Wird im Wörterbuch TEST abgelegt. Allerdings kann man, wenn man 
vın eigenes Wörterbuch angelegt hat, das FORTH-Wörterbuch nicht 
mehr erweitern. 


Nuıch Vereinbarung sollten eigene Wörterbücher als IMMEDIATE ge- 
kinnzeichnet werden. Dies bedeutet, daß das Wort immer sofort, auch 
wahrend des Compilierens sofort ausgeführt wird. 

Auf die Bedeutung von IMMEDIATE wird im übernächsten Abschnitt 
ngegangen werden. 


In «den meisten FORTH-Versionen ist das FORTH-Wörterbuch gegen 
ııs Löschen von Einträgen geschützt. Die Eingabe von FORGET 
VLIST gibt die Warnung VLIST ? PROTECTED aus. Das bedeutet, 
Au VLIST im geschützten Teil des Wörterbuches liegt. 

Iıne Systemvariable FENCE enthält die Namensfeldadresse des ersten 
lıntrags im ungeschützten Bereich. Dies ist vor diesem Eintrag der 
/viger HERE. Damit kann man durch 


HERE FENCE |! 


ıiyene Einträge vor dem Vergessen schützen. Diesen Schutz kann man 
mt 


' <NAME> NFA FENCE ! 


‚ulheben. 
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Mit ' (NAME) wird die Parameterfeldadresse des Eintrags (NAMI 
geholt und durch NFA die zugehörige Namensfeldadresse berechnnı 
und diese in FENCE gespeichert. Damit ist dieser Eintrag wieder un 
geschützt und kann somit gelöscht werden. 


6.6. Definitionsworte 


Mit dem Begriff Definitionsworte sollen solche Worte in FORTH bw 
zeichnet werden, die ein neues Wort definieren. 


Dies sind : (BUILDS (CREATE in poly-FORTH) CONSTANT un«d 
VARIABLE. 


Auf die Definition eines Definitionswortes mit (BUILDS soll jetzt 
näher eingegangen werden. In Kapitel 6.2 haben wir dieses Wort be 
nutzt um bei der Übersetzung oder Compilierung den Kopf eines 
Wortes ohne Parameterfeld in das Wörterbuch einzutragen. Wir haben 
dann andere Worte benutzt um Daten im Parameterfeld abzulegen. 
Diese beiden getrennten Definitionen können zu einer einzigen Defi 
nition zusammengezogen werden. Den Aufbau einer solchen Definition 
für ein Definitionswort zeigt Abbildung 6.7. Zuerst wird der Name 
des neuen Definitionswortes festgelegt und nach dem Wort (BUILDS 
wird die Folge von Definitionen angegeben, die das Verhalten währen(l 
der Compilierung festlegen. Nach dem Wort DOES) wird dann die 
Folge von Definitionen angegeben, die das Verhalten während der 
Laufzeit angeben. 


Als Beispiel dazu die Definition des Definitionswortes CONSTANT 


: CONSTANT <BUILDS „ DOES> € ; 


COMPILE LAUFZEIT 
NAME: |" SBUJLDS: Ienuairen| DOES VERHALTEN 


Abbildung 6.7 
Definition eines Definitionswortes 


In Wort mit dem Namen CONSTANT definiert eine Klasse von 
Wurten, die bei der Compilierung eine Zahl im Wörterbuch speichern 
‘ und bei der Ausführung eines Programms diese aus dem Wörterbuch 
wilssen und auf dem Stapel ablegen. 


tom Aufruf von 3 CONSTANT DREI wird bei der Compilierung 
unter dem Namen DREI die Zahl 3 im Wörterbuch eingetragen. Wird 
hu der Ausführung eines Programms, also während der Laufzeit, das 
Wut DREI aufgerufen, dann wird die Zahl 3 aus dem Wörterbuch 
yuhnlt und auf dem Stapel ausgelegt. 


Aul die gleiche Weise können wir uns jetzt ein Definitionswort 
vIGTOR definieren, das uns bei der Compilierung Speicherplatz für 
‚ %. 5 Zahlen im Wörterbuch freihält. Bei der Ausführung von Pro- 
nammen kann man dann unter Angabe eines Index dort Zahlen 
„„eichern oder auslesen. Die Definition lautet: 


VECTOR <BUILDS 20 ALLOT DOES> SWAP 2* + ; 


Mit dem Definitionswort VECTOR definieren wir ein neues Wort 
I11.D, das ein Zahlenfled von 10 Zahlen darstellt: 


VECTOR FELD 


Durch 1000 O FELD wird in den untersten Speicherplatz die Zahl 
I000 gespeichert. Mit 


0 FELD ? 


wird sie wieder auf den Bildschirm ausgegeben. Alle Namen die mit dem 
Betinitionswort VECTOR definiert worden sind haben alle die gleiche 
Iigenschaft. Sie gehören alle zur gleichen Klasse. In unserem Fall wird 
bu der Compilierung Platz für 10 Zahlen freigehalten, in der während 
der Laufzeit Zahlen eingeschrieben oder ausgelesen werden können. 
Aber Vorsicht ! Es findet keine Überprüfung der Grenzen des Feldes 
statt. Der Indexbereich reicht von O bis 9. Wird ein 


9999 10 FELD ! 
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ausgeführt, so wird die Zahl 9999 in den Kopf der folgenden Defini 
tion geschrieben und somit das Wörterbuch zuerstört. 


Falls man lieber den Indexbereich von 1 bis 10 verwenden will, su 
ändert man die Definiton in 


VECTOR <BUILDS 20 ALLOT DOES> 1- 2% +; 


ab. 


Programmierübung: 

Es soll ein Definitionswort ARRAY definiert werden, das für 10 Zahlen 
Speicherplatz freilässt. Beim Laufzeitverhalten werden die Grenzen 
überprüft und bei Ausgabe eines falschen Index die Fehlermeldung 
“FALSCHER INDEX‘ ausgegeben. 


Das gleiche für ein Definitionswort VARRAY, bei dem die Grenzen 
während der Definiton des Wortes vorgegeben und bei der Laufzeil 
überprüft werden. 


Die Schaffung von Definitionsworten stellt einen Eingriff in den 
Compiler dar. Durch die (BUILDS.... DOES) Anweisung werden neue 
Datenstrukturen geschaffen und in den Compiler übertragen. Diese 
Änderung und Erweiterung des Compilers ist in FORTH durchaus er 
wünscht und erlaubt. Andere Sprachen versiegeln dagegen den Compiler 
gegen gewünschte Änderungen eines Programmierers. Diese Freizügig- 
keit setzt aber voraus, daß der Programmierer sich über die gemachten 
Änderungen im klaren ist und sie selbst auf Fehler prüft. 


Das folgende Programm eines Sprachübersetzers in Abbildung 6.8 soll 
das Verhalten eines Wörterbuchs in FORTH nochmals aufzeigen. 


In Zeile 1 wird das Definitionswort LISTE eingeführt, das Speicher- 
platz für 4 Zahlen reserviert. Diese Zahlen können durch Angabe eines 
Index gelesen oder eingeschrieben werden. Mit dem Definitionswort 
LISTE definieren wir das Wort ’LISTE (Adressenliste). Wir bezeichnen 
mit EN HELLO DE GUTEN TAG usw. und speichern die entsprechen- 
de Adressen (’EN 'DE..) in unserer Liste. 


R 55 
X SPRACHUEBERSETZER ) 

"LISTE <EUILDS 3 ALLOT DOES> 
SHMAP Z& + ı "LISTE LISTE 


un 


EN ." HELLO" ; 
EN a LISTE ! 

BE ." GUTEN Taß " ; 
BE 1 LISTE ! 

IT." BON GIORHO " ; 
IT 2 LISTE ! 

FR." BON JOUR "4 
FR 3 LISTE ! 


Scan IN Bi hl A 7 


ız 


mm da 


[N 2 id Ri 
I 
| 


# 57 
© SFRACHUEEBERSETZER 5 


gt 
un} 
0 ı 


a CONSTANT ENGLISCHE 

I CONSTANT DEUTSCHE 

2 CONSTANT ITALIENISCHE 
3 CONSTANT FRANZOESISCHE 


DR u er 


F SFUESSE LISTE @E Z- EXECUTE ; 


ÜH 

EHGLISCHE GRUESSE HELLO OK 
ITALIENISCHE GRUESSE BÖHM GIORNDO OF 
FRAHZÜESISCHE GRUESSE BON JÜULR Ok 


Abbildung 6.8 
Sprachübersetzer 


Damit wird im FORTH Wörterbuch ein anderes Wörterbuch aufgebaut. 


Mit 0 CONSTANT ENGLISCHE 
1 CONSTANT DEUTSCHE usw. 
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weisen wir dem Wort ENGLISCHE die Zahl DO, dem Wort DEUTSCHHI 
die Zahl 1 usw. zu. Das Wort GRUESSE holt aus der LISTE «dr 
Adresse, die mit EXECUTE zur Ausführung gebracht wird. 


Der Programmablauf in diesem Wörterbuch entspricht genau dem Pıu 
grammablauf im FORTH Wörterbuch. In einer Tabelle (Parameterfell! 
sind die Adressen von Worten (Programm) gespeichert. Diese Pıu 
grammteile werden durch indirekte Sprünge zur Ausführung gebracht, 


Ein weiteres Definitionswort ist CREATE. 


CREATE (NAME) 


Erzeugt Eintrag in das Wörterbuch von (NAME) und setzt alı 
Codefeldadresse die Parameterfeldadresse des Wortes. 


Mit CREATE lassen sich kurze Maschinenprogramme eingeben. 
Das folgende Beispiel ist die Initialisierung von Tor B des ATARI zuı 
Vorbereitung auf eine Druckerausgabe. 


SCcR #4 © 
I) “ SECREENFRINT > HEX 
i CREATE INIT X FÜRT BE. 
2 Ar u, 285, ‘ Lok #200) 
3 200, A330, DEc, £ 5TA &ba02 ) 
4 Ar, FFC, “ LODA #$FF 2 
2 ED C, All, DEC, x STAA tb301 2 
£ Ar CC, 24 [L, Lid #824 9 
E eb C, a2 0, D2tC, ı STAA be) 
Ss Arc, SAL, ‘ LbA #306 1 
Eu eb CC, al lc, DE, &% STAA Eb3bl > 
ia au cc, 47 cc, Gr c, % IMF NEXT 5 
il SMUbGE 
Abbildung 6.9 


Wortdefinition mit CREATE 


CREATE und (BUILDS sind meistens gleichbedeutend. Durch CREATE 
wird Bit 6 im Zählbyte des Namens auf Eins gesetzt. Dadurch wird das 
Wort beim Suchen übergangen. Mit SMUDGE schaltet Bit 6 um. 
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u! Andern des Compile-Verhaltens 


tet ner Wortdefinition wie zum Beispiel: 
T 10 0 DO 65 EMIT LOOP ; 


wurden die Zahlen in der augenblicklich gültigen Zahlenbasis einge- 
onen. Ist Dezimalrechnung eingeschaltet, so sind die Zahlen Dezi- 
ulzahlen, ist Hexadezimalrechnung eingeschaltet, so sind es Hexa- 
ıkzımalzahlen. Ein nachträgliches Ändern der Zahlenbasis ändert 
„uht die Zahlen in der Definition. Dies kann umgangen werden, wenn 
wein man den Compiler während der Eingabe aus- und einschaltet. 
Dies geschieht durch die Worte [ und ]. 


| ee 2 


Schaltet Compiler aus. 


| ver) 


Schaltet Compiler ein. 


Inspiel: 


ı T 16 0 DO [ HEX ] 2E EMIT [ DECIMAL ] LOOP 


. 
G 


Durch diese Schleife sollen 10 Punkte ausgegeben werden. Vor Beginn 
den Definition ist auf Dezimalrechnung geschaltet worden. Die Zahlen 
IV und O sind Dezimalzahlen. Der Punkt soll als ASCII-Zeichen 2E 
«ıngegeben werden. Dazu wird mit [| der Compiler ausgeschaltet, das 
Wort HEX direkt ausgeführt und mit | der Compiler wieder einge- 
„chaltet. FORTH befindet sich nun in Hexadezimalrechnung. Nach 
(ler Eingabe von 2E wird wieder mit | DECIMAL | zurückgeschaltet. 
Die zwischen den eckigen Klammern stehenden Worte werden während 
les Compilierens sofort ausgeführt. 


Bei dem folgenden Beispiel werden die Worte VORHER und NACH- 
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HER während des Compilierens ausgegeben. 


SCR# 102 2 °T ." VORHER " HEX ] 87 EMIT 


[ 
[ ." NACHHER" DECIMAL ] 
; 102 LOAD VORHER NACHHER OK 


Wird T ausgeführt, so wird nur das ASCII-ZeichenBELL ausgegeben. 

Im allgemeinen wird eine Definition nur dann ausgeführt, wenn sie auf 
gerufen wird. Durch das Wort IMMEDIATE wird eine Definition sofori 
nach der Compilierung ausgeführt. 

Beispiel: 


» SOFORT ." SOFORT " ; IMMEDIATE OK 


: LOS SOFORT ." GEHTS LOS " ; SOFORT OK 


Das Wort SOFORT wurde als IMMEDIATE erklärt. Bei der Compi 
lierung wird es demnach sofort ausgeführt. Wird das Wort LOS aufge 
rufen, erscheint nur die Meldung 


LOS GEHTS LOS OK 


Durch [COMPILE] NAME) kann ein, als IMMEDIATE gekenn 
zeichnetes Wort in die Definition compiliert werden. 


: NLOS [COMPILE] SOFORT ." GEHTS LOS " ; 


NLOS SOFORT GEHTS LOS OK 


Dazu noch ein Beispiel aus OQS-FORTH 


Das Wort LOCATE {NAMB) sucht das Textfeld, in welchem das Wort 
(NAME) definiert wurde. Dazu trägt QS-FORTH bei von Disketten 


(umpilierten Worten vor der Namenfeldaresse die Nummer des Text- 
Iuldes ein. Der ‘ Befehl ist IMMEDIATE, durch [COMPILE] wird er 
in die Definiton von LOCATE aufgenommen. Danach wird der Com- 
inler abgeschaltet und der augenblickliche Wert von FENCE auf den 
"itapel geholt. LITERAL fügt nun diese Zahl in die Wortdefinition ein. 


SCrR# 1 
15) FÜRTH DEFIMTTIOHS HEX 
1 
2 L-UN MT CREATE ' 5; 
je L-UFF ° FIRST fa 
3 CREATE ' ı DECIMAL 
3 LOCATE [COMFILE]I ° DUP 
& [EFEHCE E I LITERÄAL > 
Fi IFHFA 2 - B GAlP d= 
Be IF 25 MESSAGE 
F ELSE DUP a 
Iu5) IF S MESSAGE QUIT ELSE LIST 
11 ENÜCIF ENDIF 


Die Definition von LITERAL lautet: 


LITERAL (n--)) 


während des Compilierens wird eine Zahl vom Stapel in die Wort- 
definition eingefügt. 


ver’ 


während der Laufzeit wird diese Zahl auf dem Stapel abgelegt. 


Wie schon vorher erwähnt, stellt in FORTH als Compiler kein isoliertes 
I"ogramm dar. Es können Eingriffe in den Compiler gemacht und der 
Gompiler selbst oder das Compiler-Verhalten verändert werden. 
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6.8. Zusammenstellung der Definitionen 


HERE (nin2 --) nin2adr ) 


Bringt die Adresse des nächsten freien Speicherplatzes auf can 
Stapel. 


EXECUTE ( nin2adr --) nin?2) 


Bringt ein Programm, das bei adr anfängt zur Ausführung. adr isı 
die Codefeldadresse eines FORTH Wortes. 


L { nin2n3 --) nin2 ) 


Speichert n3 in die Speicherzelle auf die HERE zeigt und erhöht 
den Zeiger um Zwei. 


+! (niIn2adr --) ni) 


Addiert n2 zum Inhalt einer Variablen, deren Adresse adr auf dem 
Stapel ist. 


’XNAME) ( nin2 --) nin2pfa ) 
Bringt die Parameterfeldadresse von (NAME) in den TOS. 


CFA ( pfa --) cfa ) 


Rechnet die Parameterfeldadresse in die Codefeldadresse um. 


NFA ( pfa --) nfa ) 


Rechnet die Parameterfeldadresse in die Namenfeldadresse um. 


PFA (nfa --) pfa ) 


Rechnet die Namenfeldadresse in die Parameterfeldadresse um. 


IT A ( pfa --) Ifa ) 


Ituchnet die Parameterfeldadresse in die Verbindungsfeldadresse 
arm). 


ALLOT (n1n2n3 --) nin2) 


Kıserviert n3 Byte Speicherplatz im Wörterbuch. 


:BUILDS (NAME {n=--)n) 


Irtagt (NAME) ins Wörterbuch ein. Belegt Namenfeld, Indexfeld 
und Codefeld, kein Parameterfeld. 


DOES Ken Sein) 


Wird in Definitionsworten benutzt. Beendet den Teil für die 
GOMPILE-Anweisungen und zeigt den Beginn der Laufzeitan- 
weisungen an. 


Uehmitionswort: 


: (NAME) (BUILDS (WORTEN DOES (WORTE ; 


Bei der Compilierung eines Wortes (NAME) werden die (WORTEN) 
ausgeführt. Bei der Laufzeit dann (WORTE2). Alle mit (NAME) 
definierten Worte bilden eine Klasse gleicher Eigenschaften. 


CREATE (NAME) 


Eintrag von (NAME) ins Wörterbuch. Codefeldadresse ist Para- 
meterfeldadresse des Eintrags. 


| (ee) 


Schaltet Compiler aus. 
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] ee) 


Schaltet Compiler ein. 


LITERAL (n--)) 


Bei Compilierung n vom Stapel in Wortdefinition einfügen. 


Bari.) 


Bei Laufzeit n auf Stapel ablegen. 


BLOCK (nn --) adr ) 


Bringt die Adresse des Blockspeichers auf den Stapel, der den 
Block mit der Nummer n enthält. Ist dieser noch nicht im Speicheı, 
wird er von der Diskette gelesen. 


DP ( --) adr ) 


Variable, enthält Adresse des ersten freien Platzes im Wörterbuch. 


SMUDGE (--)) 


Schaltet Bit 6 des Längenbytes im Namenseintrag um. Mit Bit 
6 = 1 wird Name beim Suchen nicht gefunden. 


T/ Texteingabe 


! Inxteingabe 


tr det Grundversion von FORTH sind keine Worte zur Verarbeitung 
„nr Zeichenketten vereinbart. Diese lassen sich aber leicht durch die 
ti die Ein- und Ausgabe von Text vorhandenen Worte definieren. 


Im Wort EXPECT erwartet die Eingabe von Text. Die Definition von 
I XPECT lautet 


EXPECT ( .adrn --) ) 


Eingabe von n Zeichen. Text nach Adresse adr. 


Dieser Text kann mit TYPE wieder ausgegeben werden (Definition 
Kapitel 4). Nach EXPECT muß, bei der direkten Eingabe ein CR ein- 
ıwgeben werden. 


Neispiel: 


PAD 10 EXPECT GUTEN TAG OK 


PAD 10 TYPE GUTEN TAG OK 


Für die Eingabe von Text haben wir als Eingabespeicher PAD ver- 
wendet. PAD liegt normalerweise 68 Byte über HERE (siehe Abbildung 
6.1). 


Beim Aufruf von PAD wird die Anfangsadresse auf den Stapel abgelegt. 
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PAD ( --) adr ) 

Speicherbereich 68 Byte über HERE. 
Anstelle von PAD hätte man auch eine beliebige Adresse aus dem froiw. 
RAM-Bereich des Rechners nehmen können. Es ist allerdings sinnwulı 
diesen RAM-Speicher vorher mit Leerzeichen ($20) oder Nullen 
füllen. Dies kann mit FILL oder ERASE geschehen. 

FILL (adrnc --)) 


Füllt ab Adresse adr n Byte mit dem ASCII-Zeichen c. 


ERASE (adın --)) 


Füllt ab Adresse adr n Byte mit 00. 


Beispiel: 
HEX 6000 40 20 FILL OK 
6000 20 EXPECT DIES IST TEXT OR 


6000 4 TYPE DIES OK 


6000 2 + 5 TYPE ES IS OK 
6005 5 TYPE IST T OK 


Mit der folgenden Definition kann Text nach PAD eingegeben werden. 


: TEXT (C-->) 
PAD 72 32 FILL WORD HERE COUNT 
PAD SWAP CMOVE ; 


Dabei werden folgende Worte verwendet: 


WORD (c--)) 


WORD übernimmt eine Zeichenfolge aus dem Eingabespeicher bis 
zum Begrenzerzeichen c. 


: ılum Text wird durch WORD ein Zählbyte eingefügt, das die Länge 
« Inte bis zum Begrenzer angibt. 


“an LORTH Versionen haben eine andere Definition für WORD 


WORD (c --) adr ) 
lt ist die Adresse des Zählbytes. 


COUNT ( adr --) adı+1In ) 


COUNT legt auf dem Stapel die Länge und die Anfangsadresse des 
lextes auf dem Stapel ab. adr ist die Adresse des Zählbytes. 


CMOVE (.adri ad? n --)) 
CMOVE verscheibt n Byte von Adresse adr1 nach Adresse adr2. 


I bei adr1 gespeicherte Byte wird als erstes nach adr2 geschrieben. 
Wunach werden die nächst höheren Byte umgesetzt. Wird durch 
MOVE der Speicherinhalt zu höheren Adressen verschoben, so muß 
„dt2 größer als adrI + n sein. Ist dies nicht der Fall, so wird der 
‘peicherinhalt verändert. 


In der Definition TEXT werden zuerst 72 Speicherplätze von PAD mit 
I oerzeichen gefüllt. Danach wird durch WORD der Text auf das Be- 
inenzerzeichen untersucht und ab der Adresse HERE+1 gespeichert. 


Das Zählbyte selbst wird bei HERE abgelegt. Mit COUNT wird die 
Anfangsadresse des Textes und die Länge auf dem Stapel abgelegt. Nach 
PAD SWAP enthält der Stapel die richtige Reihenfolge für CMOVE. 
Vor dem Aufruf von TEXT muß das Begrenzerzeichen auf dem Stapel 
sein. 
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Beispiel: 
13 TEXT DIES IST TEXT OK 


PAD 20 TYPE DIES IST TEXT OK 


32 TEXT DIES IST TEXT 
IST ? UNKNOWN 


PAD 20 TYPE DIES OK 


Bei der ersten Eingabe wurde als Begrenzer das ASCII-zeichen für 
RETURN (13, HEX OD) eingegeben. Dieser Text wurde auch voll- 
ständig übernommen. Bei der zweiten Eingabe wurde als Begrenzer das 
Leerzeichen (32, HEX 20) verwendet. Nach PAD wird deshalb nur das 
erste Wort DIES übernommen. Der Interpreter allerdings findet noch 
Text vor, und versucht diesen zu übersetzen. Er liest das nächste Wort 
bis zum Leerzeichen und sucht danach, ob er es im Wörterbuch finden 
kann. IST ist nicht definiert und somit erscheint die Fehlermeldung 
IST ?. 


Das Programm in 7.1 zeigt die Eingabe einer Adresse nach PAD und die 
Ausgabe dieser Adresse auf den Bildschirm. 


SCR # 78 
15) ‘ ADRESSEN EINGABE ) 
1 
z MAME PAb Id + ja EXFECT 4; 
2 VÜRNAME FAb 1a EXFECT ; 
4 STRASSE FAb Zu + 15 EXFECT ; 
he) FLZ FAb 35 + 4 EXPFECT ; 
& OFT FAb 27 + 15 EXPECT ; 
7 EIN CR 
& ," DORNAFE " VÜRHAME 
7 Fa NAME " MAME CR 
id ." STRASSE " STRASSE CHR 
il &" FL2E " PLZ 
 - ÜRT " ORT CR; 
13 
14 
12-5 
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SCH MH 75 
a © ADRESSEN AUSGABE >) 
1 
2 Ir 
Ei a er 
4 PRINT © ADR L --> 
S Pab + SHar -TRAILINS TYPE 
& AUS CR SL 1a @ FRINT IL 
2 id 10 PRINT CR SL 15 28 PRINT 
& CR 4 325 PRINT IL 15 37 PRINT 
» ER; 
14 


Abbildung 7.1 
Adressen Ein- und Ausgabe 


!.1. Zusammenstellung der Definitionen 
EXPECT ( adrn --) ) 


Eingabe von n Zeichen nach Adresse adr. 


PAD ( --) adr ) 
Adresse des Speichers PAD auf Stapel. 


FILL (adrnce --)) 
Füllt ab Adresse adr n Byte mit ASCII-Zeichen c. 


ERASE ( .adrn --) ) 


Füllt ab Adresse adr n Byte mit 00. 


WORD (c--)) 


übernimmt eine Zeichenfolge aus dem Eingabespeicher bis zum 
Begrenzer c. 
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COUNT ({ adr --) adr+1In ) 


legt auf dem Stapel die Länge und die Anfangsadresse des Text 
ab. adr ist die Adresse des Zählbytes. 


CMOVE ( adrladr?2n --)) 


verschiebt n Byte von Adresse adr1 nach Adresse adr2. 


B FORTH Beispiele auf 
Heim-Computern 


I FORTH Beispiele auf Heim Computern 


IORTH ist eine, vom Computer und Prozessor unabhängige Sprache. 
‚\lie Beispiele, die bisher gebracht wurden, müssen mit allen FORTH- 
Versionen realisierbar sein. Sollten einzelne Versionen nicht den vollen 
‘piachumfang haben, so ist dies nicht weiter tragisch, denn man kann 
it «die fehlenden Worte unter Verwendung vorhandener Worte neu 
ılefınieren. Dies ist ein Vorteil von FORTH, daß es keine starre, sondern 
ve lebendige erweiterbare und vielschichtige Sprache ist. 


Wenn jetzt einige Beispiele von FORTH von Heim- oder Personal- 
‘utnputern gebracht werden, so sollen spezifische Eigenschaften dieser 
echner gezeigt werden, die sich besonders gut für die Programmierung 
ı LORTH eignen. 


Deshalb wird für den Heimcomputer ATARI 800 die Programmierung 
von Tönen und Geräuschen betrachtet werden. Dieser Rechner besitzt 
«ine Vielzahl von Möglichkeiten. Die Programmierung in Maschinen- 
„„ache ist langwierig, BASIC ist viel zu langsam. FORTH ist deshalb 
(lalür am besten geeignet. 


Mus zweite Beispiel wird die Programmierung von Grafik auf dem 
Apple I! sein. Diese Programmteile lassen sich allerdings auch für den 
ATARI 800 verwenden, da dieser ähnliche Grafikmöglichkeiten wie 
(ler APPLE bietet. Auch hier wird sich zeigen, daß der Programmablauf 
m FORTH wesentlich schneller als in BASIC ist, aber nur einen 
wesentlich kleineren Anteil an Entwicklungszeit benötigt, wie eine 
Programmierung in Maschinensprache. 
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Als drittes Beispiel wird der AIM 65 verwendet, um Steuersignale füı 
Regelungen und ähnliche Anwendungen zu erzeugen. Beim AIM isı 
FORTH nicht auf Diskette sondern in 2 ROMs untergebracht. Dar 
Wörterbuch des Benutzers wird im RAM angelegt. Auf Besondeı 
heiten dieser Programmierung wird in diesen Abschnitt eingegangen 


8.1. SOUND mit dem ATARI 800 


Für den ATARI werden zur Zeit zwei FORTH Versionen angeboten. 
Von dem ATARI PROGRAM EXCHANG (APEX) die Version 
EXTENDED FIG FORTH und von QUALITY SOFTWARE das OS 
FORTH. Beide Versionen unterscheiden sich nur wenig. Während 
APEX FORTH im wesentlichen den Editor, wie er in Kapitel 5.2 be 
schrieben wurde, verwendet, benutzt OS-FORTH einen Bildschirm 
orientierten Editor, der die Editiermöglichkeiten des ATARI-Tasten 
feldes ausnutzt. Die Dokumentation des ATARI-FORTH beschränkt 
sich auf die Anführung der verwendeten Definitionen, während OS- 
FORTH eine bis sehr weit ins Detail reichende Beschreibung der 
Sprache liefert. 


Bei der Erzeugung von Geräuschen benutzen beide Sprachen die gleiche 
Definition wie in BASIC 


ni n2 n3 n4 SOUND „ 


dabei ist nl die Lautstärke, eine Zahl zwischen O und 15, n2 eine 
Verzerrung des Signals, n3 ist die Frequenz und n4 der Kanal, über 
den das Signal ausgegeben wird. 


In APEX-FORTH wird noch eine Variable FILTER! verwendet. Dies 
ist die Adresse der Zelle AUDCTL = 53768 Dezimal oder D2 08 HEX. 
In beiden Versionen muß das Wörterbuch mit den SOUND Defini- 
tionen getrennt geladen werden. In QS-FORTH besteht ein Overlay 
mit dem Editor. Nach der Verwendung von SOUND muß das Wörter- 
buch des Editors durch Eingabe von EDITOR aufgerufen werden. 


Zuerst einige einfache Beispiele: 


8 10 121 O0 SOUND 


Inne Parameterübergabe durch SOUND an den POKEY, den Prozessor, 
‚or im ATARI 800 außer anderen Aufgaben auch die Erzeugung 
vın Tönen und Geräuschen übernimmt, erzeugt einen Ton in mittlerer 
Ionlage, mit mittlerer Lautstärke und ohne Verzerrung auf Kanal 0. 


OOMNnOoO>-I0rcrUmnoa>imin 
N 


Abbildung 8.1 
Frequenztabelle ATARI 


lür die Wahl von n2 verwenden wir die in Abbildung 8.1 angegebene 
Tubelle. Die Angabe von 10 bedeutet die Ausgabe eines unverzerrten 
Tones. Im nächsten Beispiel werden wird den Ton an- und abschwellen 
lıssen. Dazu haben wir im Textfeld 90 ein Wort WAIT definiert, das 
tine, gegeben durch die Zahl im TOS variable Zeitverzögerung er- 
möglicht. Im Textfeld 91 ist durch RR ein langsam anwachsender dann 
schnell abfallender Ton programmiert. In diesem Beispiel wird durch 
die DO...LOOP Schieife die Tonhöhe verändert. 


Im nächsten Wort SIRENE soll die Frequenz verändert werden. 
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SCR # Fu 


3) ‘ ATARI SOUND DEMO > 

1 : KOFF aaa a SOUHD 5; 

zZ : IOFFacda a 1 ZUUND ; 

= zürFrFeAaAk a zZ ZSUUND 4 

d : S0FF aA. a 2 SOUND 4; 

S : OFF AOFF IüFF ZOFF 2UFF ; 
ä : WAIT i DO LOOF ; 

v2 : bDEEF 1 I3780 109: 

S 
16 

ii 

iz 

13 

14 

SCH # Fl 

1) © EINFACHEN SUUNG WORTE > 

1 FORSET TOr 

2 : TON ia Jzl oe SOUND 5 

e : FF 1S a Gl I Ton Face MALT 
2 LoGP -1 15 D,ü I TOM aaa MEIT -1 
I +LOOF 3 

sa 

ii 

iz 

ee 

14 = 

15 

Abbildung 8.2 


Einfache Töne 


Die Beispiele im Textfeld 92 zeigen deutlich den Vorteil der FORTH- 
Sprache. Einzelne Definitionen lassen sich leicht zu neuen Worten zu- 
sammenfassen. Der Aufruf eines einzigen Wortes löst dann den ge- 
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«unten Programmablauf aus. 


SCH # 78 

A 0 SIRENE | 

1 

ie ri Zum Iaa CO = 1A IT a SOUND 

= 1a MATT LOUF ; 

J RA jaa zua Do ja Ta Sound 

Ss Ja8 MAIT -1 +LOORP 4; 

be SI ja a Da RA Ru LoürF üFF ; 
ic 

1 

iz 

L3 

14 


Abbildung 8.3 
Sirene 


In den Textfeldern 93 bis 97 werden die Tasten 1 bis 8 als Tasten einer 
Orgel oder eines Klaviers verwendet. 


Die Lautstärke wird über die Variable V eingestellt. In (C) wird der Ton 
Ü generiert. Für einen klavierähnlichen Klang wird der Grundton, ein 
ılavon ein wenig abweichender Ton und der erste Oberton über die 
Kunäle O, 1 und 2 ausgegeben. Auf die gleiche Weise werden die übrigen 
Iöne der Tonleiter erzeugt. 


Das Wort ?TASTE fragt ab, ob eine der Tasten 1 bis 8 gedrückt wurde. 
Wenn dies nicht der Fall ist, wird eine —1 auf dem Stapel gelegt. 


Um nun zwischen Klavier und Orgel umschalten zu können, werden 
‚wei Wörterbücher angelegt, in welchen die Töne C bis C1 verschieden 


definiert werden. 


Im Wörterbuch PIANO ist es ein abschwellender Ton. In der Schleife 
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: C -1 15 DO I V ! (C) WAIT -1 +LOOP ; 


wird der Ton € mit abschwellender Lautstärke ausgegeben. 
Im Wörterbuch ORGAN ist es ein Ton mit gleichbleibender Lau 
stärke. 


In beiden Wörterbüchern ist ein Verteiler CASE: definiert. So eitn 
Verteileranweisung ist in der Grundversion von FOTH nicht impln 
mentiert. Deshalb wurde bisher darauf verzichtet, diese zu beschreiben, 
da sie in den einzelnen FORTH-Versionen unterschiedlich definiert! 
sind. 


Hier wird die CASE-Definition von OS-FORTH verwendet. 


CASE: (NAME) (CASEO) (CASEN)...(CASEN) ; 


(NAME) ist der Verteilername. (CASEO) ... . (CASEN) sind die Ver 
teilerworte. Die Zahl auf dem Stapel gibt an, welches Verteilwerwort 
ausgeführt wird. 


Mit O wird (CASEO) , mit 1 (CASE1) usw. ausgeführt. Aber Vorsicht | 
Wenn eine falsche Zahl eingegeben wird verschwindet das Programm 
meistens im Urwald. Ein Neustart ist nur durch Aus- und Einschalten 
des Rechners möglich. 


Mit PLAY wird dann gespielt. Mit PIANO PLAY und ORGAN PLAY 
wird zwischen den beiden Klangfarben umgeschaltet. 


Mit PIANO können einzelne Töne auch als Wortfolge eingegeben und 
gespielt werden. Dies ist mit ORGAN nicht möglich. Das Programın 
zeigt Abbildung 8.4. 


Das Programm STICK AND TRIG zeigt, wie man die Joysticks in den 
vier USER-Ports abfragen kann. Aus den Zellen 632 bis 635 werden die 
Werte von den Joystick und aus den Zellen 644 bis 647 werden die 
Werte von den Triggerknöpfen eingelesen. 


Ag] 


1 
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I Be N im Bid Sr I 


ern 


{N BB iu Nr © 


Om 8 


r 


FE. 


157 WARIAELE \ 


Ton, TAEELLE > Fa LiAb 


co V@ 16 243 4 SOUND 
\ @ 18 244 1 SOUND 
Ve da 121 2 SOUND; 
«DD VW @ 1 217 8 SOUND 
Wo @ ı1B 214 1 SOUND 
Wade 199 2 SOUND 4 
(EV @ 16 193 8 SOUND 
V@ 18 170 1 SOUND 
Wed 76 2 SOUND ; 
IF WM @ 18 182 8 SOUND 
"@ 1a 179 1 SOUND 
veıa 91 2 SOUND ; 
»4 
TON TABELLE FÜRTS, ) 
(9 V @ 18 162 0 SOUND 
Wo ® 1a 16a 1 SOUND 
ve 1a 81 2 SOUND 4 
iA) VE 1B 144 8 SOUND 
"@ 18 142 1 SOUND 
ve 1a 72 2 SOUND ; 
HC @ 18 128 @ SOUND 
v@ 1a 126 1 SOUND 
ve 1a 44 2 SOUND 
CH V @ 1a 121 @ SOUND 
v@ 1@ 119 1 SOUND 
veıa 60 zZ SOUND ; 


?TASTE KEY 48 


ELSE DUF 


THEN ; --3 


? 


% 


> 


IF 


DUP AZ IF -1 
-1 THEN 
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un 
Um 
a 


#55 
© PIANO DEFINITIONS > 
VOCABULARY FISHE — IMMEDIATE 
PIANO bEFINITIONS 
; MEIT Ic 6 DO LOOF 4 
C-115 DU IW Co) WALT 
-1 #+LOOP 3 
D-11500 IWW KCDb WAIT 
-1 +LOOF 
E-1 ISOCO I WI CE MALT 
-1 +LOÖR 4; 
F-11S 00 IWW I CP MAIT 
= S#LEDP: 4 
: 6-1 15 00 IT 1 ko WALT 
-1 +LOOF ; 
A-1 1500 IW tier WALT 
-1 +LÜÖF ı --5 


in Bine 


CR 


nn ech Zoch 


a a u u u 


HFE 
© PIANO FORTE. 
E H-LISDO IV Hb MAIT 
-1 +LÜOR ; 
: Ci -1 15 DO IV KCH WAIT 
-1 +LOCR 5; 


DR u Su a u N = 9) 


CASE: TOM CD EFGAHLCIG 


: FLAY BEGIM ?TASTE DUR -1 
KHHILE TON REFERAT 
1 1 u Bu Zu Be | 


DC =} im 
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I EC REN 


u u 


cn 


par 
=; 
Zi 


[rn 
Dep] 
en 


u Du 


nor 
I 


a u a u u 1 Ba SE u a Br 


. ORGA GEFINITIOHNS > 
VRGSEULART ORGAN IMMEDLTATE 
UORSAH GEFINITTIOHS 

1 5 \! 


va. biäbı y : EB GE 


CASE: TOMÜDEFGKAH CI 


FLAT’ BEGINN TTASTE DUrF -1 
KHIHILE TOM REFEAT 
ÜFF 3; 


Abbildung 8.4 
ATARI spielt Klavier oder Orgel 
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£ STICK AND TRIG > 
STICK] ce; 


Cr. 
Ki 


STICKZ2 633 Ce ; 
STICK3 £34 CR; 
STICK4 &35 Ce ; 


CASE: STICH S 


ic 
I 
ni 
DI 
Fr 
Da Bu 
in 
{I 
nn 
up] 
mn 
128) 


EBER 
Ir ın D 


[iu Bud asp Bas vun Bu eu 
Dierrtrn] 


{u} 
I 
a 
ul 
co 
a 
Cr or Ir In 


CASE: STRIG STEIGI FTRIGSZ 


STRIGS STRIG4 ; 
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x TESTS 3 
ı TESTI BEGIN ?TERMIMNAL “= 


REPEAT ; 


in 
(mp] 
JR Blue mM 
x 
ZI 
un 3 
m 
m 


: TESTZ BEGIH ?TERMINAL A= 
KIHILE 
46 60 I STICK 
LOOP 
ER 
REPEAT ; 


iD 


a er 
NEN e m oc 


Abbildung 8.5 
Joystickabfrage 


SCH #4 jan 

“ DISPLAY LIST AEHDERN er > 

a WARIAELE DFLA BE NARTABLE ESFA 

meh PLA ! DFLA #5 +8 

BSFA |! 

ı AUS ESFPA E DFLA EI + 004 

: BFLi Zuka a Gl I DFLA 25 + 
LOGF AUS 4 


Je. Ip iii m 


ı EFL5G DFLA ® DUF 
Et BUur 
& + RR DUP iS + R> bü r? 1] 
LOCGF BPLA E DUF iS + 85 
Suar Ct BUF BDUR 1” + DFLA& 
SUAF CI zu + Seär GFLA Os 
re 


mm m 
Ein ma 
s, 
+ 
win 
[ap 
= 
Tr 
7 


In 


Abbildung 8.6 
Display-List 
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“len beiden Testprogrammen TESTI und TEST2 werden diese Werte 
tun den Verteiler STRIG oder STICK auf den Bildschirm ausgegeben. 


tan Programm in Abbildung 8.6 enthält zwei Worte welche die Display- 
cal andern. Mit DPL1 wird der Anfang der Bildspeicheradresse in 
‚ao Liste verändert. Der Aufruf dieses Wortes hat ein flackern des 
tulluchirms und der Anzeige von '"Garbadge‘' zur Folge. 


Ihm Wort DPLG ändert die Display-List zur Anzeige von 12 Zeilen mit 
A) /wrichen um. Rückkehr nur mit Reset. 

Mit FORTH lassen sich die Grafikmöglichkeiten des ATARI erst richtig 
susnutzen. Viele der bekannten Bildschirmspiele sind in FORTH 
‚wachrieben. 


17. FORTH auf APPLE I 


Alk FORTH-Version für den Apple Il wurde hauptsächlich FORTH-79 
und für die Grafik SUPER-FORTH verwendet. FORTH-79 enthält den 
uch den Standard-Richtlinien aufgebauten Wortvorrat. 


In Texteditor ist Bildschirm-orientiert und gibt aber keine Zeilen- 
uinmern im Textfeld aus. Außerdem ist ein Assembler enthalten. Die 
Iow-Resolution Grafik ist implementiert, dagegen nicht die High- 
Itesolution Grafik. 


Ihe Speicherverteilung von FORTH-79 zeigt Abbildung 8.7. 


I ur die Low-Resolution Grafik stehen folgende Worte zur Verfügung: 


COLOR (n--)) 


n wählt die Farbe aus. 


Die Farben sind als Konstante vereinbart, so daß man auch eine Farbe 
mit 


WHITE COLOR ; 
ORANGE COLOR oder 
BLACK COLOR aufrufen kann. 
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C000 


RWTS- 
Routinen 


B600 
Disk-Buffers 
5A99 
Ende 
Wörterbuch 
5831 
4CE9 
4000 
HI-RES 
Grafik 
2000 
800 
Bildspeicher 
400 
Hilfszellen 
200 
Return 
Stapel 
100 
Parameter- 
Stapel 


Abbildung 8.7 
Speicherverteilung Apple-FORTH-79 


Vorher muß allerdings die Grafik aufgerufen werden. Dies geschieht 
durch das Wort LGR. Will man gemischte Grafik (4-Zeilen Text am 
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‚ılinen Rand), so muß man die Grafik mit MIXED aufrufen. 


„(Punkt wird in der angewählten Farbe durch PLOT gezeichnet: 


PLOT (YX--)) 
/eichnet Punkt bie X, Y 


Ihe Farbe eines Punktes kann man mit SCRN abfragen. 


SCRN (YX--)n) 
n ist die Farbe des Punktes X, Y 


um Zeichnen von Linien stehen die Worte HLINE und VLINE zur 
Vır lugung. 


HLINE (X1X2Y --)) 


Zeichnet eine horizontale Linie von X1 nach X2, in der Höhe Y. 


VLINE (Y1Y2X -)) 


Zeichnet eine vertikale Linie von Y1 nach Y2 Koordinate X. 


Die Rückkehr aus der Grafik in den Textmodus wird durch das Wort 
IX erreicht. 


TX ea) 


Rückkehr in den Textmodus. 


In den Abbildungen 8.8und 8.9sind nun zwei Beispiele für ver- 
„thiedene Muster gegeben. Die Farben werden in beiden Beispielen 
ılurch den Schleifenparameter | bestimmt. Im zweiten Beispiel wird 
zu | jeweils noch der Inhalt der Variablen CO addiert, um bei jedem 
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Schleifendurchlauf eine Farbverschiebung zu erreichen. Für schwar 
weiß Monitore ergibt sich ein Muster mit verschiedenen Helligkeiten 


SCR# 100 
( LOW RES GRAFIK EF )  FORGET COL 
: COL 8 MOD 2 * COLOR ; 
2COL 16 SWAP - COL ; 
15 19 SWAP DO I COL DUP I SWAP PLOT LOOP ı 


25 20 DO I 2COL DUP I SWAP PLOT LOOP ; 

35 19 0 DO I I 15 LOOP ; 

45 19 0 DO 1 39 I - 2S LOOP ; 

55 23 2 DO I COL 10 30 I ELINE LOOP ; 

6S 31 10 DO I COL 2 22 I VLINE LOOP ; 

75 2 22 DO I 2COL 10 30 I ELINE -1 +LOOP 
8S 10 30 TO I 2COL 2 22 I VLINE -1 +LOOP } 
T 20 0 DO 55 65 75 85 LOOP ; 


Abbildung 8.8 
LOW RES GRAFIK 


SCR# 101 


( LOW RES GRAFIK FORTS. ) FORGET CO 
0 VARIABLE CO 


#COL CO @ + COLOR ; 


L 135 0 DO I #COL DUP I SWAP PLOT LCOP ; 

LL 15 0 DO 15 I - #COL DUP I 14 + SWAP 
PLOT LOOP ; 

: 12 L LL DROP 1 CO +! 

22 20 0 DO I 12 LOOP 

: 22 20 0 DO 22 LOOP ; 


se ne 


Abbildung 8.9 
LOW RES GRAFIK Fortsetzung 


Die entgültigen Muster werden durch Aufruf von T bzw. ZZ aufge- 
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atun Man kann natürlich auch einzelne Schleifen gesondert ablaufen 


ELITE] 


‘a «he High-Resolution Grafik wurde Super FORTH verwendet. 
u vewendeten Befehle sind: 


GLEAR (=-=-)) 


l.oscht den Grafikspeicher 


NGR KEN 


Schaltet die Grafik ein 


PLOT (XY--)) 


Zeichnen eines Punktes bei X, Y 


LINE WAY e=) 


Zeichnet Linie vom letzten PLOT Punkt oder vom Ende der 
letzten Linie nach X Y 


WHITE (=--)) 


Schaltet Farbe weiß ein 


BLACK (--)) 


Schaltet Farbe schwarz ein 


Will man diese Befehle in einer anderen FORTH -Version implemen- 
tunen, so kann man folgende Maschinenprogramme benutzen: 


JSR $F3D8 HGR 
JSR &F3E2 HGR2 (Grafik mit 4 Zeilen Text) 
JSR $&F399 TEXT 
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Die Farbe wird durch den Inhalt der Zelle $E4 bestimmt 


E4:00 schwarz 
EO: FF weiß 


Für den Plotaufruf müssen die Zahlen für die Koordinaten in den «ln 
Registern übergeben werden. 


Für PLOT gilt 
JSR $8F457 
mit der X-Koordinate im X-Register (Lower Byte) und Y-Regintn 
(Higher Byte) und die Y-Koordinate im Akkumulator. 
Der Koordinatenursprung liegt am Bildschirm oben links. 
Für LINE gilt 
JSR $&F538 


mit der X-Koordinate im A-Register (Lower Byte) und X -Registm 
(Higher Byte) und der Y-Koordinate im Y-Register. 


Natürlich muß man bei der Verwendung dieser Routinen sicher sein 
daß die Speicherbereiche für die Grafik nicht durch FORTH belayı 


sind. 


Nun ein Beispiel: 


Das Programm in Abbildung 8.10 erzeugt das strahlenförmige Must 


200 VARIABLE X 
10 VARIABLE Y 
: C CLEAR HGR WHITE ; 
S200X:t 110 Y1!1; 
P 100 80 PLOT ; 
+XX@10 +X |! 
-XX@10 -X! 
+ Y@10 + Yı! 
-YY@10 - Y! 
LX@Y@LINE; 
LLL 20 0DOPL-X LOOP 
DDD 15 0 DO PL +Y LOOP 
RRR 20 0DO PL + LOOP 
ULUU 150DOo PL -Y LOOP 
BC S LLL DDD RRR UUU ; 


Abbildung 8.10 
Programm zur Erzeugung eines Strahlenkranzes 


Masu werden 2 Variable X und Y eröffnet und ihnen die Werte 200 und 
It zugewiesen. Die erste Definition C enthält die Befehlsfolge CLEAR 
Gl WHITE. Damit wird der Bildspeicher für die High-Resolution 
“walk gelöscht und durch HGR angewählt. Die Farbe, mit welcher 
zeichnet wird, ist weiß, 


1, Wort S weist den beiden Variablen die Startwerte 200 und 10 zu. 
tn Wortfolge 200 X ! bedeutet, den Wert 200 nach X speichern. Durch 
" wırd ein Punkt mit der X-Koordinate 100 und der Y-Koordinate 80 
wewählt und durch PLOT in der angegebenen Farbe gezeichnet. Dies 
“t der Mittelpunkt unseres Strahlenkranzes. Die folgenden 4 Defini- 
onen sind Operationen mit den Variablen X und Y. Als Beispiel soll 
Jdın Wort +X erklärt werden. Mit X G wird der Wert der Variablen X 
wıl den Stapel geholt und durch 10+ um 10 erhöht und danach durch 
“ | zurückgeschrieben. 


Ihe Definition L ist wiederum ein Grafikpefehl. Von den augenblick- 
Iehen Bildkoordinaten wird eine Linie zu den Koordinaten X und 
Y gezogen. Damit sind die Vorbereitungen für das Zeichen des Strahlen- 
kıunzes abgeschlossen. 
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Die nächste Definition LLL zeichnet in einer Schleife eine Linie vw 
Mittelpunkt bis zum Wert X, mit Konstanten Y. Bei jedem Schluits. 
durchlauf wird mit —X, der Wert von X um 10 erniedrigt. Die Stiaht 
werden am Bildschirm von oben rechts nach oben links gezeichnet. 


Dieser Strahlenkranz wird dann mit DDD nach unten, mit RRR tum 
Rechts und mit UUU nach oben fortgesetzt. 

In der letzten Definition ist dann mit B der gesamte Bildaufrul +. 
sammengefasst. 


8.3. FORTH auf AIM-65 


FORTH für den AIM-65 enthält neben dem FORTH-Kernel noch eımm 
Assembler. Das besondere an dieser FORTH-Version ist, daß sie ıı 
ROM {Read Only Memory) geliefert wird. Zwei ROM mit FORM: 
werden gegen zwei BASIC-ROM ausgetauscht. Abbildung 8.11 zei: 
die Speicherverteilung. Für die von FORTH benützten Variablen mı 
der Speicherbereich $200 bis $260 reserviert. Darüber können vom 
Benutzer definierte Variable abgelegt werden. Der Eingabespeichn 
liegt bei 3280 bis 82FF. Das Wörterbuch wird ab 8300 aufgebauı 


Als erstes Wort ist das Wort TASK schon vereinbart. Das FORTH 
Kernel mit dem FORTH-Wörterbuch liegt zwischen $BO00 und $DO00 
Wie bei anderen 6502 Systemen liegt der Parameterstapel ın der Zeru 
Page und als RETURN-Stapel wird der 6502 Prozessor Stapel veı 
wendet. Für die Eingabe eines FORTH-Programms kann der Text 
editor des AIM-65 verwendet werden und auch compiliert werden 
Das Definitionsende wird mit dem Wort FINIS bezeichnet. 


Als kleines Beispiel soll gezeigt werden, wie der 6522 programmiert 
werden kann. Einzelne Bit des Tores A sollen ein und ausgeschalte! 
werden können. Die Bit sind mit 1 bis 8 numeriert. Man kann sich 
vorstellen, daß jedes Bit ein bestimmtes Gerät ein- oder ausschaltet. 
Vom Tastenfeld soll durch 3 EIN das Gerät Nummer 3 eingeschaltet 
und durch 3 AUS wieder ausgeschaltet werden. Dabei sollen aber 
andere Geräte nicht beeinflußt ‚werden. Das Programm zeigt Abbildung 
8.12. 


FFFF 


MONITOR 
USER ROM 


EO00 


DO00 
FORTH ROM 
BOOO 
AIM 65 I1/O 
A000 
GG Speichererweiterung 
1000 
Bu Speichererweiterung auf Platine 
3FF 
USER 
WÖRTERBUCH 
30B 
TASK Wort Taste 
2FF 
280 
USER USER Variable 
260 
FORTH USER FORT USER Variable 
IFF 
DT 8502 STAPE (RETURN SIE 
FF 
IN 10 - 91 Parameter Stapel 
0 


Abbildung 8.11 
Speicherverteilung FORTH AIM-65 


Nie Adresse des Datenrichtungsregisters DDRA und des Tores A TORA 
wurden als Konstante vereinbart. Das Wort START setzt den Anfangs- 
sustand. Es legt eine Null auf dem Stapel ab. Das bedeutet, daß im 
Anfang alle Bit Null sind. Weiter wird durch Speichern von FF nach 
NORA alle Leitungen zu Ausgängen. 


Das Wort AN gibt den Wert im TOS an das TOR A aus. 
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EEX 

A003 CONSTANT DDRA 

A001 CONSTANT TORA 

: START 0 FF DDRA C! ; 

: AN TORA CI! ,; 

: NEU 01 SWAP DUP 1 = IF DROP ELSE 1 
DO 2 * LOOP THEN ; 


EIN NEU OR DUP AN ; 


AUS NEU FF XOR AND DUP AN ; 


OK 


Abbildung 8.12 
Bitweises Ein- und Ausschalten an Tor A 


Im Wort NEU wird festgelegt, welches Bit geschaltet werden soll. Di 
Nummer des Bits muß vorher auf dem Stapel sein. 


Mit 4 NEU wird in der ELSE... THEN Schleife eine Eins im TO! 
durch 2 « drei mal nach links geschoben. 


BIT 8 765 4.3 271 
VORHER 00000 0071 
NACHHER 0 000 10 00 


Im Wort NEU wird nun dieses Bitmuster durch die ODER-Funktion 
mit dem bisherigen Zustand verknüpft. Damit wird Bit 4 zu Ein 
gesetzt. 

Durch 4 AUS wird das Bit 4 wieder ausgeschaltet. Dabei wird durclı 
Exclusive ODER von FF mit dem Bitmuster Bit 4 zu Null, alle andereı' 
Bit zu Eins. Dann kann durch Bilden der UND --Funktion mit dem alter 
Zustand dieses Bit gelöscht werden. Alle anderen Bitzustände bleibeıi 
erhalten. 


Der AIM-65 mit FORTH ist ein idealer Computer für Anwendungen 
in der Prozessteuerung und ähnlichen Anwendungsfällen. 


9 Programmbeispiele 


" Programmbeispiele 


In folgenden Beispiele sollen das Verständnis für die Programmierung 
ıı LORTH noch vertiefen. Bei allen Beispielen, und das gilt nicht nur in 
IORTH, muß die Aufgabenstellung und die Algorithmus für die Lösung 
Iwkannt sein, um ein Programm lesen zu können. Auch ein PASCAL- 
Hoyramm ist unleserlich, wenn man nicht weiß, was programmiert 
wurde. Durch geschickte Namensgebung kann man FORTH-Programme 
hr gut leserlich machen. Es folgen zuerst einige Hilfsprogramme. 


Y1, Hilfsprogramme 


Bas folgende Programm ist in den meisten FORTH-Versionen 
whon enthalten und druckt den Inhalt des Stapels aus, ohne ihn zu zer- 
ioren. Nach der üblichen Vereinbarung steht das oberste Element 
(lm Stapels am weitesten rechts. 


Das Programm in Abbildung 9.1 verwendet die Systemvariable SO die 
(lin Anfangsadresse des Stapels enthält. Mit 'S wird die Adresse des 
„bersten Elementes vor dem Aufruf von ‘S auf den Stapel geholt. 


Das Wort .BASE gibt den augenblicklichen Wert der Zahlenbasis aus. 
Ilni der Einstellung von Programmen passiert es öfters, daß man ein 
Ihogramm in der falschen Zahlenbasis compiliert. Die Worte sind 
dann nicht mehr lauffähig. Deshalb sollte man beim häufigen Um- 
schalten sich vergewissern, in welcher Zahlenbasis man rechnet. 


Das nächste Programm in Abbildung 9.2 erzeugt Zufallszahlen (aus 
t, Brodie Starting FORTH). Vor dem Aufruf des Wortes RNDNR 
muß eine Zahl auf dem Stapel sein, die die obere Grenze für die Zu- 
Inllszahl angibt. Die Zahl selbst ist größer oder gleich Null und kleiner 
ls die obere Grenze. 
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Sch # 82 
6 & STAPELAUSGABE > 
I X STAPEL WIRD NICHT VERAENDERT) 
2 
328 $Pe ; 
4 
SS : TIEFESO@’S- 271-4 
& 
?7 2: .8CR TIEF IFS 2 - Sae@2- 
& Do I@. -2 +Loor 
= ELSE ." LEER" THEN 3 
18 


11 & AUSGAEE DER ZAÄHLEMEASTIS I 
Ii2 2 „BASE BASE E DUP DECIMÄAL . 


13 BASE 4 
i4 
15 
Abbildung 9.1 
Ausgabe des Stapels 
SCH #0 5 


je 
© ZUFALLSZAHLEN GEMNERATÜR 
a WARTSELE Fb HERE RND 


Raub RHE,Oe S14E1 & SrrE + 
PUF ReMo 


Ir io pie 


FHICHR 5 U --5 UE N 
RANGÖOM Us SMar DRÜF 4; 


rc 


Abbildung 9.2 
Zufallszahlengerator 
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Mil 
6 RNDNR 1+ 


witden die Würfelzahlen 1 bis 6 erzeugt. Als Anfangswert für die 
wenerierung einer Zufallszahl wird eine Variable RND verwendet, in 
‚ie der augenblickliche Wert von HERE gespeichert wird. Bei einem 
ogramm, das immer an der gleichen Stelle steht, erhält man dann 
unmer die gleiche Folge von Zufallszahlen. Besser ist es, wenn man eine 
‘wwscherzelle (2 Byte) in RANDOM verwendet, von der man weiß, daß 
u sich laufend verändert. Dies kann z.B. eine Timerzelle des Rechners 
tırh, 


7. Adressenkartei 


Has Programm in Abbildung 9.3 zeigt eine Adressenkartei. Dabei 
wurden die Programme Adresseneingabe, Adressenausgabe und vir- 
tueller Speicher in abgeänderter Form verwendet. Im ersten Textfeld 
winden Anfang und Länge des Vornamens, Nachnamens usw. festgelegt. 


CREATE (STRASSE) 20,15, 


ınbt die erste Zahl den Anfang von Strasse innerhalb einer Adresse und 
‚lt zweite Zahl die maximale Länge an. 


SCR# 1 

( ADRESSEN EINGABE EF ) : TASK ; 
HILFE 8 LIST ; 

: 2@ DUP 2+ @ SWAP @ ; 

CREATE (VORNAME) 0 „ 10, 

CREATE (NACHNAME) 10 ,„ 10 , 

CREATE (STRASSE) 20 , 15 , 

CREATE (PLZ) 35 ‚4, 

CREATE (ORT) 39 ,„ 15 , 


VORNAME (VORNAME) 2@ ; 
NACHNAME (NACHNAME) 2@ ; 
STRASSE (STRASSE) 2@ ; 
PLZ (PLZ) 2@ ; 

ORT (ORT) 28 ; 
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SCR# 2 


ADRESSEN EINGABE FORTS. EFF) 


64 CONSTANT RECLEN 


EIN PAD + SWAP EXPECT ; 
(EINGABE) RONE CR PAD RECLEN 32 FILL 


." VORNAME VORNAME EIN CR 

." NACHNAME " NACHNAME EIN CR 

." STRASSE " STRASSE EIN CR 

u PLZ " PLZ EIN 

> ORT " ORT EIN CR ; 
SCR# 3 

SUCHEN EF ) 


C VARIABLE WO 1 VARIABLE #NR 


ANFANG 1 #NR ! 5; 
['] [COMPILE] ' ; 
(VERGL) ( ADRl ADR2 C --> F ) 
EEGIN ROT DUP C@ >R OVER I = R> SWAP 
DUP IF O0 
ELSE DROP >R ROT DUP C@ R> = 
DUP DUP THEN WHILE 2DROP 1+ 
>R 1+ R> ROT 
REPEAT >R 2DROP 2DROP R> ; 
LEER PAD RECLEN 32 FILL ; 
WAS ['] 2 - EXECUTE SWAP DROP DUP WO ! 
13 WORD COUNT ROT PAD + SWAP 
CMOVE ; 


SCR# 4 


( 


ADRESSEN AUSGABE EF ) 
1174" 7 
SL # [3 " F 
PRINT ( Z --> ADR ) 
PAD + SWAP -TRAILING TYPE ; 
AUS CR 5L 10 0 PRINT 1L 10 10 PRINT CR 


5L 15 20 PRINT CR 4 35 PRINT 1L 
15 39 PRINT CR ; 


SCR# 5 
( VIRTUELLER SPEICHER EF ) 
Rn CONSTANT START 
INDEX ( N --> ADR ) 
RECLEN * 1024 /MOD START + BLOCK + ; 
ANZAHL ( --> N) 0 INDEX ; 
+NR ( N --> N+l ) 1 ANZAHL +! UPDATE ; 
!SPEICHER PAD ANZAHL @ INDEX RECLEN CMOVE 
UPDATE +NR ; 
@SPEICHER INDEX PAD RECLEN CMOVE AUS ; 
INIT 1 ANZAHL ! UPDATE ; 
„INHALT CR ANZAHL @ DUP ] = 
IF ELSE 1 DO I @SPEICHER CR 
LOOP THEN ; 
#NAME #NR @ @SPEICHER ; 


SCR# 6 
| ADRESSEN-KARTEI _ EF ) 
VERGL PAD WO @ + #NR @ INDEX WO @ + 


32 (VERGL) ; 
FEHLT .„" UNBEKANNT" CR ; 
FERTIG SAVE-BUFFERS ; 
(SAVE) ANZAHL @ 8 MOD 0= IF FERTIG THEN ; 
(SUCHE) DO I #NR ! VERGL DUP IF LEAVE 

ELSE DROP TREEN LOOP ; 

ENDE ANZAHL @ 1 - #NR@ =; 
SUCHE LEER WAS 0 ANZAHL @ 1 (SUCHE) IF 

DROP #NAME ELSE ENDE IF FEHLT THEN THEN ; 


SCR# 7 
( ADRESSENKARTEI FORTS. EFF) 


EINGABE (EINGABE) !SPEICHER (SAVE) ; 

LOESCHEN #NR @ INDEX RECLEN 42 FILL; 

EINTRAG (EINGABE) PAD #NR &@ INDEX 
RECLEN CMOVE ; 

„NAME DUP #NR ! ESPEICHER ; 
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SCR# 8 
( ADRESSENKARTEI HILFSTEXT EF ) 
( FOLGENDE WORTE SIND VEREINBART: 


EINGABE ( - ) EINGABE DER ADRESSE 

SUCHE <BEGRIFF> <NAME> Z.B. 

SUCHE VORNAME HEINZ 

LOESCHEN ( - ) LOESCHT DEN GERADE GESUCHTEN 
EINTRAG. ERSETZT ALLE BUCHSTABEN DURCH * . 
EINTRAG ( - ) SETZ EINE EINGABE AN DIE 
GERADE GEFUNDENE STELLE .#NR ENTHAELT DIE 
NUMMER DES EINTRAGS. 

„NAME (N - ) GIBT EINTRAG N AUS. 

„INHALT ( - ) GIBT ALLE EINTRAEGE AUS. 
FERTIG ( - ) SCHREIBT GEAENDERTE BLOECKE 
AUF DISKETTE. ) 


OK 


Abbildung 9.3 
Adressenkartei 


Durch die Eingabe von STRASSE werden diese beiden Zahlen auf den 
Stapel gelegt. 


Im nächsten Textfeld findet dann die Eingabe in den Speicherbereich 
PAD statt. Im dritten Fextfeld sind Hilfsworte für das Suchen eines 
Eintrags definiert. Das Wort (VERGL) erwartet vor dem Aufruf drei 
Angaben auf dem Stapel. adri ist die Anfangsadresse einer Zeichen- 
kette, adr2 ist die Anfangsadresse einer zweiten Zeichenkette und c ist 
ein Begrenzer. Beide Zeichenketten werden miteinander verglichen. 
Werden zwei ungleiche Zeichen gefunden, so wird dieses Wort mit O auf 
dem Stapel verlassen. 


Der Vergleich wird solange fortgesetzt, bis der Begrenzer C in der 
Zeichenkette bei adr1 gefunden wird. Dann sind beide Zeichenketter: 
bis dahin gleich, und das Wort wird mit ] auf dem Stapel verlassen. 


In einem Programm, das sehr viele Adressen verwalten soll, wird man 
das Wort in Maschinencode formulieren, um die Suchschnelligkeit zu 
erhöhen. Auf die Vereinbarung von |[‘] (Compile-Tick) werden wir 


ılleich eingehen. 


Im Textfeld 4 ist die Ausgabe eines Eintrags aus PAD definiert. 

Das Textfeld 5 enthält die Definitionen für den virtuellen Speicher. 
Dieses Programm ist in FORTH-79 geschrieben. Ein Block ist hier Ik 
Byte lang. Die Konstante START gibt den Anfangsblock der Adressen- 
kurtei und die Konstante RECLEN die Länge eines Eintrags an. Im 
übrigen sind die Definitionen gleich wie in 6.3, nur daß hier ein 
Zeichensatz der Länge RECLEN gespeichert wird. 


Die nächsten beiden Textfelder enthalten nun die Worte, die der 
Benutzer für diese Adressenkartei braucht. Durch EINGABE wird ein 
Eintrag in die Kartei gemacht. Die Eingabe erfolgt nach PAD und wird 
von dort durch !SPEICHER an das Ende der bisherigen Einträge ge- 
macht. 

SUCHE benötigt zwei Folgeangaben. 


SUCHE (WAS) (NAME) 


also z.B. 


SUCHE VORNAME HANS 


oder 


SUCHE PLZ 7500 
Für die Eingabe in dieser Form wird nun das Wort 
: [‘] [COMPILE]'‘ ; 
benötigt. 


"ist in FORTH als IMMEDIATE definiert. Wird es als [‘] in einer 
Doppelpunktdefinition aufgeführt, so wird es nicht sofort, sondern 
bei Aufruf des definierten Wortes ausgeführt. Dabei holt es die Para- 
meterfeldadrese des nächsten Wortes im Eingabespeicher in den 
Stapel. Bei SUCHE VORNAME also die Adresse von VORNAME, 
bei SUCHE PLZ die Adresse von PLZ usw. 


149 


150 


In dem Wort WAS wird nach |‘] aus der Parameterfeldadresse die Code 
feldadresse berechnet und ausgeführt. Danach befinden sich die An 
gaben für den Suchbegriff (Adresse im Eintrag und Länge des Eintrags 
auf dem Stapel. Für das Suchen wird nur die Lage innerhalb einır. 
Eintrags benötigt. Diese wird nach WO gespeichert und verbleibt au! 
dem Stapel. Die folgende Zeichenkette wird nun an diese Stelle naclı 
PAD geschrieben. Vorher wurde PAD mit Leerzeichen gefüllt. 


Durch die besondere Definition von (VERGL) braucht man nun für die 
Suche nicht den vollen Namen sondern nur einen Teil eingeben. 


SUCHE NACHNAME MEI 


bringt den ersten Eintrag, dessen ersten drei Buchstaben MEI sind, 


Im folgenden nun das Benutzerwörterbuch für die Adressenkartei. 


EINGABE (--)) 


Eingabe eines Eintrags. Dieser wird ans Ende der Liste gehängt. 


SUCHE (BEGRIFF (NAME) (--)) 


Sucht den Begriff Name in der Liste. Wird er gefunden, so enthält 
die Variable #NR die Nummer des Eintrags. Wird er nicht ge- 
funden, so erscheint die Meldung UNBEKANNT. 


LOESCHEN (--)) 


Löscht den Eintrag desen Nummer in #NR ist. Dabei wird die 
Zeichenkette durch das Zeichen » ersetzt. 


EINTRAG (--)) 


Das gleiche wie Eingabe, nur daß die Adresse an die Stelle einge- 
fügt wird, deren Nummer in #NR gespeichert ist. 


Buch 
SUCHE VORNAME « 
EINTRAG 


konnen gelöschte Stellen in der Liste aufgefüllt werden. 


INHALT (==-)) 


Gibt den gesamten Inhalt der Liste aus. 


‚NAME (N--)) 


Gibt den n-ten Eintrag der Liste aus. Speichert n in #NR. 


Mas Programm kann noch erweitert werden. Diese Erweiterungen 
konnen als Programmierübung angesehen werden. Man kann das Wort 


AENDERE (BEGRIFF) (NAME) 


«inführen, das den Begriff im Eintrag dessen Nummer in #NR enthalten 
ıst in Name umändert. Also 


SUCHE STRASSE HOLZWEG 
AENDERE STRASSE NEUWEG 


Eine andere Erweiterung wäre die Einführung des Wortes WEITER. 
Damit wird die Suche nach dem Aufinden eines Eintrages fortgesetzt. 
Dazu wird man den Suchbegriff nicht nach PAD sondern z. B. nach 
PAD 64 + schreiben, da PAD bei der Ausgabe überschrieben wird. 


9,3. Datenbank 


Im vorangegangenen Programm Adressliste ist jeweils nur nach einem 
Begriff in einer Spalte gesucht worden. In dem Programmbeispiel 
Datenbank kann nun die Kombination mehrerer Begriffe gesucht 
werden. Als Beispiel nehmen wir eine Datenbank, bei der ein Ein- 
trag aus vier Feldern für jeweils 16 Zeichen besteht. Im ersten Feld 
wird eine Bezeichnung, in den folgenden drei Feldern die Eigenschaften 
1,2 und 3. 
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Ein Häuslermarkler kann zum Beispiel in die Bezeichnung eine Kunidn 
nummer, und für die Eingenschaften Angaben über Wohnlage, Preis um! 
Zustand machen. 


SCR# 0 

( DATENBANK HILFSTEXT EF 

FOLGENDE WORTE SIND DEFINIERT : 

INIT ANLEGEN EINER NEUEN DATENBANK . 
EINGABE EINGABE IN DIE FELDER . 

SUCHE <RET> SUCHEN NACH BEGRIFFEN 
LOESCHEN LOESCHEN DES GESUCHTEN EINTRAGS . 
EINTRAG NEUER EINTRAG AN DER GESUCHTEN STELLE 
FERTIG SPEICHERN AUF DISKETTE 

„NAME ( N) AUSGABE DES EINTRAGS N . 
„INHALT AUSGABE DES GESAMTEN INHALTS . 


SCR# 1 
( DATENBANK AUFBAU EF ) : TASK ; 
CREATE FELD 4 „ 16 , : HILFE 0 LIST ; 


FELD 2@ DROP CONSTANT L 
FELD 2@ SWAP DROP CONSTANT F 


VECTOR CREATE 2 * ALLOT DOES> SWAP 2 *#* +; 
5 VECTOR +#WO 
FELD 2@ * CONSTANT RECLEN 
: DUP2 DUP DUP ; 
: .MSG „" FELD" .; 
: STORE 1 - * PAD + SWAP EXPECT ; 


(EINGABE) HCME CR PAD RECLEN 32 FILL 
FELD 26 1+ 1 DO I .MSG DUP2 I 
STORE CR LOOP DROP ; 


SCR# 2 
( DATENBANK FORTS. FF) 
LOOK FELD 2 1 + 1 DO DUP I 1 - * 
FAD + & 0= IF 0 ELSE 1 THEN 
I #WVO ! LOOP ; 
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Rh 3 

I SUCHEN EF 

ı VARIABLE WO 1 VARIABLE #NR 

; ANFANG 1 #NR ! ; 

‚ (VERGL) ( ADRl ADR2 C --> F) , 

EEGIN ROT DUP C@ >R OVER I = R> SWAP 
DUP IF 0 
FLSE DROP >R ROT DUP CE R> = 
DUP DUP TREN WHILE 2DROP ]1+ 
>R 1+ R> ROT 

REPEAT >R 2DROP 2DROP R> ; 


| DATENBAHK AUSGABE EF ) 
ı PRINT F 1+ 1 DO CR I .MSG L DUP 
I 1- * PAD + SWAP TYPE LOOP CK; 


scR# 5 
({ VIRTUELLER SPEICHER ) 
10 CONSTANT START 
ı INDEX ( N --> ADR ) 
KECLEN * 1024 /NOD START + BLOCK + ; 
ı ANZAHL ( --> N) 0 #INDEX ; 
ı +NR ( N =--> N+tl ) 1 ANZAHL +! UPDATE ; 
ı !SPEICHER PAD ANZAHL @ #INDEX RECLEN CMOVE 
UPDATE +NR ; 
: OSPEICHER #INDEX PAD RECLEN CMOVE PRINT ; 
ı INIT 1 ANZAHL ! UPDATE ; 
„INHALT CR ANZAHL @ DUP 1 = 
IF ELSE 1 DO I @ASPEICHER CR 
LOOP THERN ; 
#NAME #NR @ @SPEICHER ; 
EINGABE (EINGABE) !SPEICHER ; 


SCR# 6 
( DATENBANK FORTS. EF ) 
‚, VARIABLE #F 
: MOVE> PAD PAD 80 + PECLEN CMOVE ; 
<MOVE PAD 80 + PAD RECLEN CMOVE ; 
AUS MOVE> #NAME <MOVE ; 
LEER PAD RECLEN 32 FILL ; 
#WO-->#F F 1 + 1 DO I #wo @ IF 
I #F ! LEAVE THEN LOOP ; 
#F-->WO #F @ 1 - L*WO ! ; 
SSUCHE LEER (EINGABE) LOOK #WO-->#F 
#F-->WO ANFANG ; 
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SCRE 7 
( DATENBANK FORTS. EF) 
. VARIABLE BO 
VERGL PAD wo Q + #NR 4 #INDEX WO € + 
FEELT ." UNBEKANNT" CK ; 
FERTIG SAVE-EUFFERS ; 
NEXT (N=-NF) LNWO +! 1l1+ DUP F ]+ =; 
MUSS ( N- NF) DUP #kOo Gü (= ; 
((SUCHE)) 1 BO +! #F € EBEGIN NEXT 
IF BO @ IF AUS THEN 6 
ELSE MUSS IF 1 ELSE VERGL THEN TI: 


l1= WEILE REEBAT C BG I #FP-->6C j 
SCRE & 
( DATENBANK ENDE EP) 
(SAVE) ANZAHL @ & NCD 0= IF FERTIC 
TREN ; 


(SUCHE) DO I #NR ! VERGL DUP IF LEAVE 
ELSE DROP TEEN LOOP ; 
: ENDE ANZAHL @ 1 - #NRG@ =; 
: SUCHE LEER WAS 0 ANZAFL € 1 (SUCHE) IF 
DROP #NAME ELSE ENDE IF FEELT THEN THLN 
LOESCHEN #NR @ INDEX RECLEN 42 FILL ; 
EINTRAG (EINGABE) PAbL #IR ü INDEX 
RECLEN CMOVE ; 
: .„NANE DUP #NR ! G@SPEICHER ; 


Abbildung 9.4 
Datenbank 


Für das Suchen von Einträgen kann man nun die einzelnen Angaben 
kombinieren. Man sucht also z. B. nach der Bezeichnung und de: 
Eigenschaft 2 oder sucht alle Bezeichnungen mit den Eigenschaften | 
und 3 usw. 


Im Programm sind für die Eintragungen vier Felder durch CREATE 
FELD 4, 16 , ‚jedes 16 Zeichen lang, festgelegt. Durch Ändern diese: 
Angabe allein kann das Schema der Datenbank geändert werden. 
CREATE FELD 8,8, legt 8 Felder mit 8 Zeichen oder CREATE 


ıIıD8,16 ,8 Felder mit 16 Zeichen. Man sollte aber darauf achten, 
1uld das Produkt aus Feld mal Zeichen die Zahl 64 oder ein Mehr- 
talıos davon ergibt. 


Il Programm verwendet im wesentlichen Programmteile, die auch in 
‚ln Namensliste benötigt wurden, also den virtuellen Speicher und 
ılım Suchverfahren. Dieses wurde durch ((SUCHE)}) so erweitert, daß, 
wenn ein Eintrag in einer Spalte gefunden wurde, noch geschaut wird 
“bh ın dieser Zeile auch noch der andere Suchbegriff gefunden wird. 
Wirt eine Übereinstimmung mit allen Suchbegriffen gefunden, so wird 
ılıı Eintrag ausgegeben. Diese Ausgabe geschieht wieder über PAD. 
Haru werden die dort gespeicherten Suchbegriffe durch MOVE) weg- 
‘"peichert und nachher durch (MOVE wieder geholt. Vor dem Suchen 
wid durch LOOK festgestellt, in welchen Spalten überhaupt gesucht 
wnıden soll. Diese Angaben werden in dem Feld #WO gespeichert. Die 
Vısiable #F enthält die Nummer der Spalte, in welcher als erstes ge- 
wicht wird. Alle übrigen Namen sind aus der Adressenkartei bekannt 
und nochmals in dem Textfeld Hilfe beschrieben. 


Beispiele zur Datenbank: 


‚INHALT 


"KLD 1 EINS FELD 1 VIER FELD 1 VIER 
"ELD 2 ZEEI FELD 2 EINS FFEID 2 ZWEI 
"ELD 3 DREI FELD 3 ZWEI FELD 3 DREI 
"PLD 4 VIER FELD 4 DRET FELDb 4 EINS 
IELD 1 ZWEI FELB 1 DREI FELD 2 VIER 
"ELD 2 DREI FELD 2 FALLG FEID 2 ZWE] 
FELD 3 VIER FELD 3 FIES FELGE 3 EINS 
"EID 4 EINS FELD 4 GROSS FE:ID 4 LEN] 
"ELD 1 DREI FELD 1 EINS 
"ELD 2 VIER FELD 2 BALLC 
"ELD 3 EINS FELD 3 GROSS 
"ELD 4 ZWEI FELD 4 BEEI 
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SUCHE SUCHE SUCHE 


FELD 1 FELD 1 EINS FELD 1 vn 
FELD 2 HALLO FELD 2 FELD 2 
FELD 3 FELD 3 FELD 3 brı 
FELD 4 FELD 4 FELD 4 
FELD 1 DREI FELD 1 EINS FELD ] vi 
FELD 2 HALLO FELD 2 ZWEI FELD 2 7 
FELD 3 EINS FELD 3 DREI FELD 3 hr 
FELD 4 GROSS FELD 4 VIER FELD 4 Il 
FELD 1 EINS FELD 1 EINS 

FELD 2 HALLO FELD 2 HALLO 

FELD 3 GROSS FELD 3 GROSS 

FELD 4 DREI FELD 4 DREI 


9.4. Lagerverwaltung 


Das Programm in Abbildung 9.5 ist ein Beispiel für eine Lagerw: 
waltung. Eingegeben werden eine 5 stellige Bestellnummer. eine Iı 
stellige Bezeichnung, der Preis und die Lagermenge. 


Für die Programmausführung werden im wesentlichen die gleich 
Definitionen wie in den beiden vorangegangenen Beispielen verwenidi 
Wie bei der Adressliste werden die Eingaben durch CREATE (BEN! 
NR) usw. festgelegt. Die Eingabe, das Speichern auf Diskette und aus! 
das Suchen sind vollkommen gleich. 


SCR# 40 

( LAGERVERWALTUNG EINGABE EF ) 
HILFE 48 LIST ; 

CREATE (EEST.NR) 0,5%, 

CREATE (ARTIKEL) 5 „ 16 , 

CREATE (FREIS) 21 , 8, 

CREATE (MENGE) 29 ,6 , 

PEST.NR (BEST.NR) 2Z@ 

ARTIKEL (ARTIKEL) 2@ 

PREIS (PREIS) 2@ ; 

MENGE (VENGE) 20 


. 
‘ 


. 
‘ 


KiR# Al 
(| TAGERVERWALTUNG EINGABE FORTS. EF ) 
“4 CONSTANT RECLEN 


: BIN PAD + SWAP EXPECT ; 
‚ (EINGABE) HOME CR PAD RECLEN 32 FILL 


." BEST.NR " BEST.NR EIN CR 
." ARTIKEL " ARTIKEL EIN CR 
ze PREIS " PREIS EIN CR 
au MENCE " MENGE EIN CR ; 
Rt 42 
{| SUCHEN EF ) 


" VARIABLE WO 1 VARIABLE #NR 
ı ANFANG 1 #NR ! ; 
ı ['] [COMPILE] ' ; 
ı (VERGL) ( ADRl ADR2 C --> F) 
BEGIN ROT DUP C@ >R OVER I = R> SWAP 
DUP IF 0 
ELSE DROP >R ROT DUP C@ R> = 
DUP DUP THEN WHILE 2DROP 1+ 
>R 1+ R> ROT 
REPEAT >R 2DROP 2DROP R> ; 
ı LEER PAD RECLEN 32 FILL ; 
ı WAS ['!] 2 - EXECUTE SWAP DROP DUP WO ! 
13 WORD COUNT ROT PAD + SWAP 


CMOVE ; 
oR 
NCR# 43 
( LAGERVERWALTUNG AUSGABE EF ) 
ı 2L „" " , 


ı PRINT ( Z --> ADR ) 
PAD + SWAP -TRAILING TYPE ; 
ı AUS CR 5 0 PRINT 2L 16 5 PRINT 2L 
8 21 PRINT 2L 6 29 PRINT CR; 
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SCR# 44 
( VIRTUELLER SPEICHER Ei) 
60 CONSTANT START 
ı #INDEX ( N --> ADR ) 
RECLEN * 1024 /MOD START + BLOCK + ; 
ANZAHL ( --> N) 0 #INDEX ; 
+NR ( N --> N+l ) 1 ANZAHL +! UPDATE ; 
!SPEICHER PAD ANZAHL @ #INDEX RECLEN CMOVI 
UPDATE +NR ; 
@SPEICHER #INDEX PAD RECLEN CMOVE ; 
INIT 1 ANZAEL ! UPDATE ; 
„INHALT CR ANZAHL € DUP 1 = 
IF ELSE 1 DO I @SPEICHER AUS CR 
LCOP THEN ; 
FNAME #NR @ ESPEICHER AUS 


. 
G 


SCR# 45 
LAGERVERWALTUNG ZAHLENWANDLUNG EF ) 


DMUL (DN- D) >R 2DUP 2DUP R> 1 DO D+ 
2SWAP 2DUP 2ROT LCOP ; 
DM>PFG 0. PAD 20 + CONVERT 0. 2SWAP CONVERT 
DROP 2SWAP 100 DMUL 2SWAP 2DROP 2SWAP 
2DROP D+ ; 
RECONV <# #S #> PAD 29 + DUP 6 32 FILL 
SWAP CMOVE ; 
DOCONV 0. PAD 28 + CONVERT DROP ; 
STNEU DUP 0 DOCONV 2SWAP D- RECONV 
PAD #NR @ #INDEX RECLEN CMOVE UPDATE 


. 
‘ 


» :.DM <# # # 46 HOLD #S #> TYPE ; 


„ZEILE DUP CR 5 .R 21, PAD 5 + 16 TYPE 
DM>PFG ROT DMUL 2L .DM 2DROP DROP ; 


OK 


uk 46 
| LAGERVERWALTUNG FORTS. EF ) 
‚ VERGL PAD WO @ + #NR @ #INDEX WO @ + 

32 (VERGL) ; 
"FEHLT ." UNBEKANNT" CR ; 
FERTIG SAVE-BUFFERS ; 
(SAVE) ANZAHL @ 8 MOD 0= IF FERTIG THEN ; 
(SUCHE) DO I #NR ! VERGL DUP IF LEAVE 

ELSE DROP TEEN LOOP ; 
ı ENDE ANZAHL @ 1 - #NR@ =; 
ı FIN ENDE IF FEHLT TBEN ; 
ı DA O ANZAHL @ 1 (SUCHE) IF DROP #NR @ @SPEICHER 
STNEU „ZEILE ELSE FIN THEN ; 

ı * LEER 0 WO ! 13 WORD COUNT PAD SWAP CMOVE DA ; 
ı SUCHE LEER WAS 0 ANZAHL @ 1 (SUCHE) IF 

DROP #NAME ELSE FIN THEN ; 


NCR# 47 
( LAGERVERWALTUNG ENDE EF ) 


ı EINGABE (EINGABE) !SPEICHER (SAVE) ; 

ı LOESCHEN #NR @ #INDEX RECLEN 42 FILL ; 

ı EINTRAG (EINGABE) PAD #NR @ #INDEX 
RECLEN CMOVE ; 

ı „NAME DUP #NR ! ESPEICHER AUS ; 


ICR# 48 
( LAGERVERWALTUNG HILFSTEXT EF ) 
( FOLGENDE WORTE SIND VEREINBART: 


FINGABE EINGABE ARTIKELS MIT BESTFLLNUMNER (2) 
BEZEICHNUNG (16) PREIS (E MIT DEZINKAL- 
PUNKT UND MENCE (6) . 

SUCHE BEST.NR XXXXX 

SUCHE AFTIKEL XXXXX ODER XXXLFERZEICHEN 
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LAGERBESTANDSAENDERUNG: 
<MENGE> * <BESTELLNUMMER> Z.B. 10 * 1002 


„INHALT GIBT LAGERLISTE AUS 
„NAME ( N) GIBT EINTRAG N AUS 
EINTRAG ( N) FUEGT NEUEN EINTRAG AN STELLE N FHIı 


FERTIG SPEICHERN AUF DISKETTE 
OK 


Abbildung 9.5 
Lagerverwaltung 


Beispiet zur Lagerverwaltung 
„INHALT 


1000 SCHUHE 29.80 222 


1001 SOCKEN 3.95 990 


1002 PBEMDEN 35.40 90 


OR 


12 * 1002 
12 HEMDEN 424.80 OK 


„INHALT 


1000 SCHUHE 29.80 222 


16001 SCCKEN 3.95 990 


16002 HEBDEN 35.40 78 
CK 
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Heu in diesem Programm ist die Umwandlung einer Zeichenkette in 
“ne Zahl und umgekehrt, das Rückspeichern einer Zahl als Zeichen- 
retten, 


Wird z. B. die Bestellnummer 1005 10 mal verkauft, so wird durch die 
tınyabe von 10 + 1005 der Gesamtpreis ausgerechnet, die Bestell- 
“ummer mit der Bezeichnung, Einzelpreis und Gesamtpreis auf den 
Ihleischirm ausgegeben. Gleichzeitig wird von der Lagermenge die ver- 
*.uıfte Menge abgezogen und die geänderte Eintragung zurückge- 
‚peichert. 


tr die Umwandlung einer Zeichenkette wird in FORTH-79 das Wort 
LO NVERT verwendet. 


CONVERT (diadrl --) d2adr2 ) 


GONVERT wandelt eine Zahl, die als Zeichenkette ab adri + 1 ge- 
„michert ist, in eine doppelt lange Zahl d2 um. adr2 ist die Adresse 
‚lm; ersten Zeichens, das keine gültige Ziffer darstellt. Vor dem Auf- 
ul von CONVERT muß eine doppeltlange Zahl dI auf dem Stapel 
stehen, 


tn ddem Wort DM)PFG wird der Preis z. B. 29.80 der so als Zeichenkette 
‚speichert ist, in die Einheit Pfennig als Zahl gewandelt. 


Winn eine Bestellnummer gesucht wurde, so steht sie in PAD. Die 
/wichenkette für den Preis beginnt in PAD+21. Durch den ersten 
Aufruf von CONVERT wird die Zahl vor dem Dezimalpunkt gewandelt. 
Ber zweite Aufruf von CONVERT wandelt dann die Zahl hinter dem 
Mezimalpunkt um. Durch Multiplikation der ersten Zahl mit 100 und 
Addition der zweiten Zahl erhält man dann das Ergebnis 2980 als 
‚Ioppeltlange Zahl. Für Preisangaben wird man weiterhin mit doppelt 
lımgen Zahlen rechnen, denn damit kann man bis zu Beträgen von 
I0 Mio DM auf den Pfennig genau rechnen. 


In FORTH-Versionen, in denen das Wort CONVERT nicht definiert 
ist, werden Zahlen, die als Zeichenketten gespeichert sind durch 
NUMBER gewandelt. 
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NUMBER (adr --)d) 


NUMBER wandelt eine Zeichenkette, die bei adr+1 beginnt und dm: 
Länge in adr gespeichert ist, in eine doppelt lange Zahl d um Ir. 
Adresse eines Dezimalpunktes innerhalb der Zeichenkette wird im I"; 
gespeichert. 


Für die Ausgabe wird dann die berechnete Zahl rückgewandelt und m! 
den Bildschirm ausgegeben. Der veränderte Eintrag wird aus P’AI 
wieder in den Speicher zurück geschrieben. 


Schlußbemerkung: 


Ich glaube, die vorangegangenen Beispiele zeigen, wie kurz und einfn! 
FORTH-Programme werden können. Sind als Grundstock schon eitn 
Worte vorhanden, so lassen sich leicht neue Programme erstellen ud: 
alte Programme ändern. Wichtig ist allerdings eine gute Programm 
dokumentation. Auch die Kombination von Programmen ist leicht. 


Die beiden Programme Adressliste und Lagerverwaltung compiliert mu 
in zwei verschiedenen Wörterbüchern ADRESSE und LAGI N 
Zwischen beiden Programmteilen kann man leicht umschalten und u 
eine Kundenkartei mit Rechnungschreiben, Inventur usw. zusammum 
bauen. 


Aber: 

FORTH legt die volle Verantwortung auf den Programmierer. 

Alle Fehlermöglichkeiten müssen vom Programmierer erkannt um! 
abgefangen werden. Eine Division durch Null wird nicht erkannı 
Diese muß, wenn sie in einem Programm auftreten kann, vom Pıu 
grammierer abgefangen werden. 


In diesem Buch wurde nur auf die Grundstruktur von FORTH einge 
gangen. Assembler und Erweiterungen für Zeichenketten wurden richt 
behandelt. Diese sind meist speziell auf bestimmte Rechner ausgelen: 
und können in den Handbüchern nachgeschlagen werden. 


Ich hoffe aber, daß der Leser Spass an FORTH hat und sich in dei 
eigenwilligen Struktur dieser Sprache zurechtfindet. 


ANHANG A 


Inwmımmenstellung der Definitionen 


'„ folgt nun eine Zusammenstellung der wichtigsten Worte. Diese Liste 
‚ı nicht vollständig, da die Sprache nicht starr ist, sondern laufend 
“wistert und verändert wird. Aber sie enthält die wichtigsten Defi- 
ilionen, um neue Worte zu schaffen. Außerdem sind in dieser Liste 
suh nicht die Definitionen enthalten die das FORTH System intern 
wunitzt und auf die ein normaler Benutzer im allgemeinen nicht zu- 
nmlen muß, 


| (nin2adr --) ni ) 

er Wert n2 wird nach adr gespeichert. 

H (-7) 

Wandlung einer Zahlenstelle 

1) (==) adın ) 

Inde der Formatierung. Auf dem Stapel bleibt die Adresse der Zeichenkette 
und die Zahl der Zeichen. 

HS (7) 


Alle verbleibenden Stellen werden in ASCIH Zeichen gewandelt. 


“«NAME) { nIn2 --) niIn2pfa ) 
Bringt die Parameterfeldaresse von (NAME? in den TOS. 


( (nIn?2n3 --) nIn2n3 ) 


Kommentarbeginn. Text wird bis ) übertragen. 


{nIn2n3 --InIn) 


Multiplikationn = n2 + n3 


= {nIn2n3 In) 


n  n1“n2/n3. Das Produkt ni x n2 wird doppelt lang berechnet 


"/MOD ({nin2n3 --)In4n) 


nv nl *n2/n3 Rest der Division ıst nd 
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+ {nin2n3 --)nin ) 
Additionn =n2 + n3 


+! (nin2adr --) ni) 


Addiert n2 zum Inhalt einer Variablen, deren Adresse adr auf dem Stay! 


+LOOP {nIn2n3 --) nin2)} 


Der Zählparameter der Schleife wird um n3 verändert. 


’ {nIn2n3 --) nin2) 
Speichert n3 in die Speicherzelle auf die HERE zeigt und erhöht den /r« 


um Zwei. 


u {nIn2n3 --)nIn) 


Subtraktionn = n2 — n3 


--) {nin2n3 --) nin2n3 ) 


Text geht im folgenden Textfeld weiter. 


-TRAILING ( adrni --) adın2 ) 


Ändert für die Ausgabe von Text COUNT so, daß führende Leerzeichen um. 
drückt werden. 


(nin2n3 --) nin2) 


Ausgabe von n3 auf Bildschirm. 


"XXX" In=-’n) 
Ausgabe von XXX als Text. 


.R {nIn2n3 --) nIn2 )} 


Tabulator wird auf n3 Stellen gesetzt. Die Zahl wird rechtsbündig ausgegebun 


{nIn2n3 --)niIn) 


Divisıonn = n2 /n3 


’LOOP ("u ==) 


u Schrittweite. 
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/MOD {nin2n3 --)nindn) 
n n2/n3,n4 = Rest. 


u {ntin2n3 --) nin2f ) 
I Iwennn3(0 


0 {n!in2n3 --) nin?f) 


I 1Iwennn3=0 


xxx (In=--In) 
Beginn der Definition des Wortes XXX. 


(n=- In) 


Ende der Wortdefinition. 


Ss ( nIn?2n3 --) nin2n3) 
Ende für Compilirtung 


N {nin2n3 --)n1f) 


f = 1 wenn n? (n3 


(BUILDS(NAME) (n=--)n) 


Trägt (NAME) ins Wörterbuch eın. Belegt Namenfeld, 


und Codefeld, kein Parameterfeld. 


({nin2n3 --Inilf) 


f = 1 wenn n2 = n3 


) {nin2n3 --’nif) 


{ = 1 wenn n2’n3 


IR {niIn2n3 --) ni1n?) 


n3 wird auf den Returnstapel geschrieben. 


? {niIn2addı --I nin2) 
X entspricht @ . 


Linkfeld 
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’TERMINAL (--?f) 


f = 1, wenn irgendeine Taste gedrückt wurde. 


@ {nin2adr --) nIn2n) 


n ist der Inhalt der Speicherzelle adr. 


ABS ({nin2n3 --)niIn2n) 


n ist der Absolutwert von n3 


ALLOT {nin2n3 --) nin2 } 


Reserviert n3 Byte Speicherplatz im Wörterbuch. 


AND {nin2n3 --)n!n) 
n=n2&n3 
BASE ({n ==) nadr } 


Variable, enthält den augenblicklichen Wert der Zahlenbasis. 


BLOCK (n--)adı) 
Bringt Adresse des Blockes auf Stapel und Block n in Speicher. 


c, {b=--)) 
Ein Byte wird nach HERE gespeichert. HERE wird um Eins erhöht. 


Cı {nibadr --I ni) 


Ein Byte wird nach adr gespeichert. 


cc“ {nIn2adr --’ nIn2b ) 


Ein Byte wird aus adr geholt. 


CFA ( Pfa---) cfa ) 


Rechnet die Parameterfeldadresse ın dıe Codefeldadresse um. 


COMPILE 


Tragt das folgende Wort währencl der Laufzeit in das Wörterbuch ein. 


CMOVE (adradı?n --)) 


Verschieht n Byte von Adresse adr1 nach Adresse adr?. 
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CONSTANT (NAME) ({ nIn2n3 --) nin2) 


Definition einer Konstanten (NAME), deren Wert n3 ist. 


COPY (nin2n3 =) n]) 
Kopiere Textfeld n2 nach n3 


CONTEXT (=) adr ) 


Liefert die Adresse des Wörterbuchs, welches als erstes durchsucht wird. 


COUNT (adr --) adr+In ) 

Legt auf dem Stapel die Länge und die Anfangsadresse des Textes ab. 
adr ist die Adresse des Zählbytes. 

CR (nen) 


Beginn einer neuen Zeile, 


CREATE (NAME) 


Eintrag von (NAME) ins Wörterbuch. Codefeldadresse ist Parameterfeld- 
adresse des Eintrags. 


CURRENT (.7-)adr ) 


Variable, enthält Adresse des Wörterbuchs, in das die Definitionen einge- 
tragen werden. 


D+ ( d1d2d3 --) did) 


d ist die Summe von d1 und d2 


D- (d1d2d3 --) did) 
d ist die Differenz von d2 und dI1 


D. ( d1d2d3 --) di1d2) 
Ausgabe von d3 


D.R {d1d2d3 --) di) 
Druckt d2 in einen d3 breiten Zahlenfeld aus. 


DO= ( d1id2d3 —--) did2f) 


f=1wennd=O 
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D( (d1Id2d3 --) dif ) 
f= 1 wenn d3 (d2 


D= (d1Id2d3 --) dif) 
f = 1, wenn d2 = d3 


DECIMAL (nn) 


Zahlendarstellung Dezimal. 


DEFINITIONS (NAME) 


Setzt die Adresse von (NAME) in CURRENT Die folgenden Definitionen 
werden in dieses Wörterbuch eingetragen. 


DMAX ( d1d2d3 --) did) 
d = d2 wenn d2 ) d3 und d = d3 wenn d3 ) d2 ist. 


DMIN ( d1d2d3 --) did) 
d = d2 wenn d2 (d3 und d = d3 wenn d3 (d2 ist. 


DO {nIn2 --)) 


Eröffnet Schleife von n2 bis n1-1 


DOES) (n=--)n) 

Wird in Definitionsworten benutzt. Beendet den Teil für die COMPILE-An 
weisungen und zeigt den Beginn der Laufzeitanweisungen an. 

DROP { nin2n3 --) nin2) 


Oberstes Element löschen 


DUP {niIn2n3 --) niIn2n3n3 ) 


Duplizieren des obersten Elementes auf dem Stapel. 


EMIT {nIn2C --)niIn2) 
C wird als 7-bit ASCII -Zeichen auf den Bildschirm ausgegeben. 


ERASE (adın --)) 
Füllt ab Adresse adr n Byte mit O0. 


IXLCUTE ( nIn2adr -—-) nin2) 


Iingt ein Programm, das bei adr anfängt zur Ausführung. adr ist die Code- 
Inllacdresse eines FORTH Wortes. 


IXPECT (adrn --)) 


I ınyabe von n Zeichen nach Adresse adr. 


II NCE ( 7) adı ) 


Vanable, enthält die Adresse des ersten ungeschützten Eintrages im Wörter- 
huch, 


IL (adınc --)) 
Iullt an Adresse adr n Byte mit ASCII-Zeichen c. 


ILUSH { nIin2n3 --) nin2n3 } 


"peichern des augenblicklichen Textfeldes. 


IORGETXXX (In--)n) 


| oschen der Definition XXX einschließlich aller später gemachten Definitionen 


IORTH 
wtzt CONTEXT und CURRENT auf FORTH Wörterbuch. 


HERE ({nin2 --) nin2adr ) 


Iııngt die Adresse des nächsten freien Speicherplatzes auf den Stapel. 


NEX (n=--)n) 


/ühlendarstellung Hexadezimal. 


HOLD (e=--)) 
I ınfügen des ASCII-Zeichens c in die Zeichenkette. 


| {nin2n3 --) nIn2n3n ) 


er Laufparameter n der Schleife wird auf den Stapel gelegt. 


IMMEDIATE 


I rklärt eine Definition als unmittelbar’. Dieses Wort wird sofort ausgeführt. 
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KEY {nin2n3 --) nin2n3c ) 


Warten auf Tasteneingabe. 


LATEST ( ==) adı ) 


Enthält die Narnensfeldadresse der letzten Definition. 


LEAVE 
Verlassen einer DO... LOOP Schleife. Zählparameter bleibt erhalten 


LFA (pfa --) Ifa ) 


Rechnet die Parameterfeldadresse in die Verbindungsfeldadresse um. 


LIST {n!In2n3 --)nIn2) 


Ausgabe von Textfeld n3 auf Bildschirm. 


LITERAL (n = -)) 


Bei Compilierung n vom Stapel in Wortdefinition einfügen. 


(In) 


Bei Laufzeit n auf Stapel ablegen. 


LOAD (nin2n3 --)nin2 } 
Compiliere Textfeld n3 


M« {ntn2 --)di) 
di =n1 » n2 32-bit Produkt. 


M/ (dini --)n2) 
n2=d1/n] 
MAX (nin2n3 --)nin) 


n ist die größere der beiden Zahlen n2, n3 
MESSAGE (n--)) 

Ausgaben der Meldung n 

MIN (nin2n3 --)nin) 


n ist die kleinere der beiden Zahlen n2, n3 
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n3 wird negativ 


MOD (n2n2n3 --)niIn) 


n Rest der Division n2 /n3 


NFA (pfa --) nfa ) 


Rechnet die Parameterfeldadresse in die Namenfeldadresse um. 


NUMBER ( adr --)d) 


Wandelt eine Zeichenkette, die bei adr+1 beginnt in eine doppelt lange Zahl. 
adr enthält die Länge der Zeichenkette. 


OR {nin2n3 --)InIn) 
n=n2Vn3 
OVER {nin2n3 --) nIn2n3n2 ) 


2-tes Element des Stapels duplizieren und auf den Stapel legen. 


PAD (==) adı ) 
Adresse des Speichers PAD auf Stapel. 


PFA {nfa --) pfa ) 


Rechnet die Namenfeldadresse in die Parameterfeldadresse um. 


QUIT 


Beendet Laufzeit, ohne Ausgabe von ok. 


R {nin2 --) nin2n3) 


Das oberste Element n3 des Returnstapels wird auf den Rechenstapel kopiert. 


R) ({nin2 --) nin2n3 } 


n3 wird aus dem Returnstapel zurückgeholt. 


ROT ( nin2n3 --) n?2n3nt } 


Die obersten 3 Elemente des Stapel zyklisch vertauschen. 
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so ( 7) adr ) 


Variable, enthält Adresse des Stapelendes 


SCR (=) adr ) 


Variable, enthält Adresse des augenblicklichen Textfeldes. 


SIGN {nd --In) 


Gibt innerhalb einer Zahlenformatierung ein Minuszeichen aus. 


SP @ (=) adr ) 
Bringt Adresse von TOS vor dem Aufruf. 


SPACE (n=--)n) 


Ausgabe eines Leerzeichens. 


SPACES (nIn2n3 --) nin2) 


Ausgabe von n3 Leerzeichen. 


SWAP {nIn?2n3 --) nIn3n2 ) 


Vertauschen der beiden obersten Elemente auf dem Stapel. 


TIP (==) adı ) 


Variable, enthält Adresse des Eingangsspeichers 


TYPE (adın --)) 


Ausgabe einer Zeichenkette, deren Anfang bei adr gespeichert ist und die 
n Zeichen lang ist 


Us {ulu2 --) ud) 
ud = ul ru2 
V. (nlu=--)Ini} 


Ausgabe von u als Zahl ohne Vorzeichen. 


U’ I udul ==) u2u3 ) 


ud. ul, u? Rest, u3 Quotient 
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U/MOD  ( udul --) u2u3 ) 


Dividiert eine 32-bit Zahl durch 16-bit Zal. u3 ist Quotient, u2 der Rest der 
Division. Alles Zahlen ohne Vorzeichen. 


ut (ulu2 --)f) 


Vergleicht die beiden obersten Zahlen in Stapel als Zahlen ohne Vorzeichen. 


UPDATE ( nin2n3 --) nin2n3) 


Kennzeichnung des augenblicklichen Textfeldes als geändert. 


USER (NAME) (n=--)) 


Definitionswort: Trägt eine Variable in einem vom Benutzer festgelegten 
Bereich ein. 


VARIABLE (NAME) ({nin2n3 --) nin2) 
Definition einer Variablen, (NAME), deren Wert n3 ist. 


VOCABULARY (NAME) 


Eröffnen eines neuen Wörterbuches. 


VLIST {n=-?’n) 


Ausgabe des augenblicklichen Wörterbuches. 


WORD (e--)) 


Ubernimmt eine Zeichenfolge aus dem Eingabespeicher bis zum Begrenzer c. 


XOR (nIn2n3 --)nin) 
n=n2An3 


| (==%] 


Schaltet Compiler aus. 


|COMPILE | (NAME) 
Ein als IMMEDIATE erklärtes Wort compilieren. 


| ve) 
Schaltet Compiler ein. 
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Kontrollworte: 


DO...LOOP (niIn2n3 = -)Inl) 


Schleife wird von n3 bis n2 in Einerschritten durchlaufen. n2 ? n3 


+LOOP (n=-)) 
Erhöhung um n 


DO ( ulu2 --) ı1n2 ) /LOOP (u =--)) 


u1 obere Grenze, u2 untere Grenze, Erhöhung um u. 


IF (WORTE) ENDIF (THEN) 
IF {nin2f --)n1n2) 


Die (WORTE) zwischen IF und ENDIF werden nur ausgeführt, wenn f I 
IF (WORTEN) ELSE (WORTE2) ENDIF 
IF (nin2f --)nin2) 


Die (WORTE?) werden ausgeführt, wenn f = 1 ıst. Mit f = O werden u 
(WORTE2) ausgeführt. 


BEGIN (WORTE) (BEDINGUNG) UNTIL 
UNTIL {nIn2f --)nin2) 


Die Ausführung der (WORTE) wird solange wiederholt, bis die (BEDINGUNG 
erfüllt, f = 1 ist. 


BEGIN (WORTE1) BEDINGUNG) WHILE (WORTE2) REPEAT WORTIH I 
WHILE {nIn2f --)nin2)} 


Solange die Bedingung, f = 1, erfüllt ist, wird (WORTEI1) und (WORTEJ 
durchlaufen. Mit f = O wird (WORTE2) übersprungen und (WORTE3) auı 
geführt. 


Definitionswort: 


: (NAME) BUILDS (WORTE 1) DOES) (WORTE); 


Bei der Compilierung eines Wortes (NAME) werden die (WORTE) ausgeführt, 
Bei der Laufzeit dann (WORTE). Alle mit (NAME) definierten Worte bilden 
eine Klasse gleicher Eigenschaften. 
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Vorschläge zur Namensgebung: 
(Nach Unterlagen von FORTH INC.) 


Die folgenden Vorschläge sind von FORTH INC. herausgegeben, um 
„ine einheitliche Namensgebung zu erreichen. 


Bezeichnung 


Iname 


!tname 


'name 


(name) 


"name 


tname 


-name 


‚name 


/name 


Iname 


2name 


ıname 
‚name 


ANHANG B 


Bedeutung 


Speichern nach name 

Größe oder Menge 
1) Adresse von name 
2) Adresse eines Zeigers für name 
1) In name verwendetes Unter- 


programm 


2) Laufzeitverhalten von name 

1) Multiplikation 

2) Eingabe eines Parameters für 
eine Scalierung 


1) Addition 


2) Parametererhöhung 


3) Einschalten 
1) Abziehen 
2) Abschalten 


3) Umkehrung von name 

4) Verkehrte Bool’sche Ausgabe 
(1 = FALSE, 0 = TRUE) 
Druckausgabe von name 


1) Division 


2) Vorzeichenloses aufzählen 


3) pro‘ 


1) Erster Name in einer Menge 


2) Zahl Eins 


1) Zweiter Name in einer Menge 


2) Zahl Zwei 


3) doppelt lange Operation 
Beginn einer Definition 


Ende 


Beispiel 


ISPEICHER 
#PUNKTE 
'S 


(FIND) 
»ZAHL 
+ZAHL 


+RUF 


—TRAILING 


.S 
/ZAHL 
/LOOP 


1SCHALTER 
2SCHALTER 
Zu 


"R 
‚CODE 
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(name 
(name) 
)name 


?name 


(“name 
Cname 
Dname 
Mname 


Tname 
Uname 


|name] 


\name 
name! 
name’ 
name, 
name) 


name? 


name“ 


1) kleiner als name 

2) Richtungsangabe 
Bezeichnung für eine Geräte- 
treiberroutine 

1) nach, wohin 

2) Index 

1) Abfrage 

2) Abfrage einer Bedingung mit 
Abbruch 

3) Ausgabe des Inhalts von name 
Aus name holen 
Ein Byte lang 
Doppelt lang (4 Byte) 


Operator für gemischte Rechen- 


Operationen 
6 Byte lang 
Vorzeichenlos 
Ausführung während der 
Compilierung 
Vorzeichenloses runterzählen 
Speichere nach name 
Zeichenkette folgt 
Ins Wörterbuch speichern 

1} Abschluß 

2) Richtung 
Abfrage einer Bedingung 
mit Rückgabe eines Boolschen 
Wertes 
Von name holen 


( 
(MOVE 
(TYPE) 


)TAPE 


?DUMP 
?STACK 


?N 
“N 
C, 
D+ 
M« 
T* 
U-— 
1" 


\LOOP 

SPI 

ABORT' xxx’ 
C, 

» 

MOVE) 
DONE? 


SPA 


Vorschläge zum Programmeintrag in ein Textfeld 


ANHANG C 


{nach Unterlagen von FORTH INC.) 


Abweichend von fig-FORTH macht FORTH INC. folgende Vorschläge 


lir das Schreiben eines Programms. 


]. Stapelveränderungen: 


In jeder Doppelpunkt oder Codedefinition, welche den Stapel ändert, 
muß diese in einem Kommentar angegeben werden. Das Format des 


Kommentars ist 


wobei das am weitesten rechts stehende Element im TOS ist. 


Beispiele: 


(Eingabe — Ausgabe) 


: TYPE ( an ) nur Eingabe 
: »-FOUND ( -aa’t ) nur Ausgabe 
: CODE (a-n } Ein- und Ausgabe 


!'olgende Abkürzungen werden verwendet: 


o - ea c ıJ0 Tv 
[o% oa 
3 


4< 
x 


fl+1 


16-bit Adresse 

8-bit Byte 

ASCII-Zeichen 

16-bit Zahl mit Vorzeichen 
16-bit Zahl ohne Vorzeichen 
32-bit Zahl mit Vorzeichen 
32-bit Zahl ohne Vorzeichen 
Position auf dem Bildschirm 

| Zeilen c Spalten 

Anfang, wohin, Anzahl 

(Save, destination, count) 
Koordination für Bildschirmgrafik 
Erster ‚ letzter (einschließlich) 
Erster ‚ letzter (ausschließlich) 
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Werden mehrere Parameter der gleichen Art verwendet, werden sie 
durch Apostroph oder durch einen Index unterschieden. 


(naa' -- nIn?2) 


2. Allgemeine Kommentare 


Alle Textfelder müssen in der Zeile Null einen Kommentar enthalten, 
der die folgenden Wortdefinitionen genügend beschreibt. 


Gutes Beispiel: (Gemischte Arithmetik) 
Zu wortreich: (Das Textfeld enthält einige doppelt lange Definitionen) 
nutzlos: (MISC.OPS) 


Außerdem sollte die Kommentarzeile eine Kurzbezeichnung des Pro 
grammierers und das Datum enthalten. 


Kommentar im Textfeld, der nicht den Stapel betrifft sollte kurz und 
nur, wenn unbedingt nötig, angegeben werden. 


Gutes Beispiel 40961 (TORA) 
zuviel DUP O = IF (bircht ab wenn gleich Null) 


3. Leerzeichen und Leerzeilen 


Leerzeilen im Textfeld sind nützlich. Sie sollen dazu verwendet werden 


:verschiedenartige Definitionen oder Blöcke von Definitionen zu 


trennen. 


Die erste Zeile leer zu lassen ist nutzlos, ebenso außer am Ende zwei 
Leerzeilen. Zeile 15 sollte leergelassen werden. 


Anmerkung: 

FORTH-79 von FORTH INC. verwendet für Kommentare sogenannte 
Shadow-blocks. Zu jedem Textfeld mit Wortdefinitionen gehört ein 
zweites Textfeld (der Schatten) der Kommentar enthält. Zwischen 
beiden Textfeldern kann durch Tastendruck umgeschaltet werden. 


Definitionen sollten am linken Rande, mit einem Leerzeichen nach der 
/eilennummer beginnen. In einer Zeile sollte keine zweite Definition 
beginnen, es sei den, es handelt sich um gleichartige kurze Definitionen. 
Nach dem Namen ein Leerzeichen bis zum Kommentaranfang und drei 
l.eerzeichen bis zum Definitionsbeginn. 


I olgende Zeilen der gleichen Definition sollten immer um drei Leer- 
zeichen mehr als in der vorangegangenen Zeile einrücken. Durch 
weiteres Einrücken kann eine geschachtelte Struktur sichtbar gemacht 
werden. 


4. Hilfe 


‚Jedes Anwenderprogramm sollte ein Textfeld enthalten das mti HILFE 
{HELP) aufgerufen werden kann. Dieses Textfeld sollte die nötigsten 
Worte zur Programmbedienung enthalten, damit der Benutzer im 
Notfall Hilfe schreien kann. 
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ANHANG D 


Spiel-Programm in PHS-FORTH für CBM-Computer 


Crazy Runner 
Die Programmiersprache FORTH erlebte in den letzten Monaten einen 
nicht unerheblichen Aufschwung in Deutschland. Inzwischen sind 
mehrere FORTH-Compiler, deren Herkunft in fast allen Fällen die 
FORTH Interest Group ist, auf dem Markt erhältlich. 


Das folgende FORTH-Programm wurde mit einem Compiler der 
Firma phs/SLS Hannover erstellt, der im Gegensatz zu anderen 
Compilern den Vorzug hat, mit einem Editor ausgestattet zu sein, der 
keine wesentlichen Einschränkungen zum gewohnten Basic-Editor hat. 


Obwohl der Compiler einen Macroassembler enthält, wurde im folgen- 
den Programm kein Gebrauch davon gemacht. phs-FORTH ist schnell 
genug, um die elf Objekte ‘‘gleichzeitig‘ in fließender Bewegung auf 
dem Monitor darzustellen. Es sind sogar zwei Verzögerungsschleifen 
notwendig, um dem Spieler überhaupt noch eine Chance einzuräumen. 


Ziel des Spieles ist es, den weißen Punkt von der linken Bildschirm- 
seite über 10 Bahnen auf die Rechte zu befördern. Auf jeder Bahn läuft 
jedoch ein kleiner grauer Block auf und ab, mit dem man nicht zu: 
sammenstoßen darf. Geschieht dieses trotzdem, so wird der Block weiß 
wenn er gerammt wurde. Der Punkt verschwindet, falls er einem Block 
im Wege ist. Hat man das Ziel erreicht, so wird die Schwierigkeitsstufe 
erhöht. Ab Stufe 6 schließlich ist es fast unmöglich ans Ziel zu ge- 
langen. Die Bewegung erfolgt wie gewohnt mit dem Zehnerblock der 
Tastatur. 


Doch nun zum Programm: 
Zunächst wird das Wort Bild definiert, welches später die Graphik auf 
den Bildschirm bringt. 


Die nächste Definition heißt INKEY und wartet nach Aufruf auf einen 
Tastendruck. Nun folgt die Deklaration von Konstanten und Variablen: 
PUNKT steht für das Bildschirmsymbol des Spielers. Analog dazu ist 
BLOCK das Symbol der wandernden grauen Felder. 


ANFANG und ENDE sind die Bildschirmadressen des Starts und Ziels. 
POS. und RICHT. markieren die Anfänge der Tabellen für die Posi- 
tionen und Richtungen der einzelnen Blöcke. 


Die Variable LEVEL gibt über den Schwierigkeitsgrad Auskunft, 
während RI, FLAG, P und J Hilfsvariablen sind. 


POSITION ist eine Variable, die die Bildschirmposition des Punktes 
enthält. Nun erfolgt wieder eine Definition (NEU), die die oben er- 
wähnten Tabellen initialisiert. Das Wort GEMAELDE führt zunächst 
BILD aus und zeichnet dann die 10 Blöcke auf das Bild. Die Routine 
TASTE fragt die Tastatur ab und wandelt die Eingabe sofort in das 
Positionsincrement (1,—1,40,--40) um. Vor dem Gleichheitszeichen 
steht jeweils der Tastencode, der je nach Tastatur des Rechners einer 
Änderung bedarf. Mit dem folgenden kleinen Programm läßt sich der 
Tastencode leicht ermitteln: 


: TAST BEGIN 151 C’ . BREAK AGAIN ; 


Doch weiter im Programm: als nächstes folgt BEWEGEPUNKT. Wie der 
Name schon sagt ist dieser Befehl für die Bewegung des Punktes verant- 
wortlich. Das Wort BEWEGEBLOCK bewegt natürlich die 10 Blöcke. 
Am Ende dieses Befehls finden wir auch die schon erwähnten Warte- 
schleifen, die mittels DO LOOP realisiert wurden. Danach steht die 
Routine SUB, die genau solange das Spiel ermöglicht, bis der Spieler 
das Ziel erreicht hat oder scheitert. Der Befehl SPIEL faßt alle Defini- 
tionen zum eigentlichen Programm zusammen und gibt noch be- 
gleitende Kommentare aus. 


Das Programm läßt sich natürlich genauso im Editor wie auch im 
Direktmodus eintippen. Ausgeführt wird es einfach durch die Eingabe 
von SPIEL. 
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: IHEE'T 
BEGIN 
k.E'r 
IHTIL. 
=1 

1a 
223433 
-22433 
aan 
3260 

vi 

[= 

[2] 

[S) 

ki 
ANFANG 


| 
Iı 
I 
1 
I 
| 
fe | 
u | 
I 1 
1 
I 
I 
1 
| 
1 
11 
1 
11 
I 1 
II] 


[u Be 


LOHSTAHT 
LÜÖHNSTAHT 
COHSTAHT 
COHSTAHNT 
LOHSTAHT 
LOHSTAHT 
“"ARIAELE 
YARIAEBLE 
Y“ARIRAEBLE 
YARTABLE 
“RARIRELE 
YARIAELE 


ir 1 
a u Bu | 
Ba u | 
| | 
a u Bu 
II rd 
a a Bu 
a Bu 
a ze 
read 
u 
Lee 
ae a u | 
ri 
| 1 
u Be Bu 
I 1 
a a Bu 
a u Bu 
Be u | 


FIHET 
ELÜCH 
AHFRAHG 
EHDE 
FÜS, 
RICHT. 
LEWEL 
rl 
FLAG 

F 

I 
FÜSITIOH 


m 
Im 


FÜOS. 
PÜ=. 
FOS. 
PO. 
PÜS. 
FÜS. 
POS, 
FPÜS. 
POS, 
FÜOS. 
RICHT. 

4a RICHT. 2 
4a RICHT. 4 
4a RICHT. & 
-4& RICHT. #8 
48 RICHT. Ic 
42 RICHT. 12 
-4a0 RICHT. 14 
-42 RICHT. 15 
-42 RICHT. 13 


l 
Be a U I FI ER FU mE FU BR LU BE FUBE EU BETT 
om Priu a gi in Fü 


GreemamlaogRınm 
KM pcTh aa acc 


VRANTUTAMD 
++ +t++ +++ 


Prrt nr 


Ge rMPIly Ban Pa pP Bd 


++ ++t++ +++ 


GEMRELCDE 

EILD ." 8" 

13 0 

nlR) 

BLOCK POS. I + @C! 


2 


+LOOR 
AHFAHNG POSITION |! 


TASTE 

131 c@ 

bGUP 41 = IF DRÜF 1 >53 ENDIF 

cup Sa = IF DROP -420 ;5 EHNDIF 

Dur 42 = IF DROP -i >23 EHDIF 
12 = IF 48 ;5 EHDIF 

IS] 
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: BEWEGEPUHKT 
TASTE RI |! 
PISITIOH @ RI @ + DuUP Co 
DUP 22 = ZSUAPR PUHET = OR 
IF 
a2 POSITION @ GC! 
RI@ FÜSITIOHN +! 
PUHKT POSITIOH 2 Ci DRüP 
EL.>SE 
DLUP ca 102 = 
IF 1 FLRG ! ga SURAF 
ELSE DROP a FLRG I! 
EHBDIF 
EHDIF 
FO=SITIOH @ ENDE = IF Sea RT |! 
EHDIF 


BEMEGEBLÜCHK 

LEYEL @ & 

a FLAG |! 

wie) 
za Da 1a MÜD 
2 # DuPp I! 
Pos. + @ 
RICHT. T@+ @ 
+ up P I 
Ba 32 = 
IF 


[N 
[2 
a) 
Zi 
sy) 


FPaPOS. Te | 

BLOCH Pw@ CI 
ELSE 

Fi“ CB PUHET <> 

IF 


RICHT. T@e+@-1 % 
RICHT. Te + | 


ELSE 
1 FLAG |! 
32 FoüS. T@e+8ü! 
POS. T@ + E RICHT. Te + CL! 
EHDIF 
EHDIF 


LOÖP 


LEVEL #3 5 ©= 
IF 


& LEYEL E - Ja 5 


nie] 

LÜOP 
ELSE 

4a a Do LOOP 
EHDIF 


SUB NEL GEMRELDE 


BREAK: 

BEWEGEBLOCHK: 

FLRG @ IF ;5 ENDIF 
BEWEGEPLUHKT 

FLAG @ 


RI» Sea = OR IF ;5 ENDIF 


AGRIN 


SPIEL 

i LEVEL ! 

BEGIH 
SUB 
FLnG u 
IF 


." U HAST VERLOREN" 


ELSE 
1 LEVEL +! 


." BDU HAST ES GESCHAFFT 


EHNDIF 
a 152 0 
1888 a DO LOOP 
INKE’Y 
AGAIN 


LEYWEL :" 


Und nun viel Spaß mit Crazy Runner. 
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Hofacker-Bücher 


Wilsfieker 


Transistor- 


Berechnungs- « 
Bauleitungs- 
Handbuch 


TBB-Transistor-, Berechnungs- und 
Bauleitungs-HB, Band 1, Hofacker 
Völlig neu überarbeitete Auflage. 
Das Buch soll bei der täglichen 
Arbeit im Labor, in der Werkstatt 
oder am Elektronik-Hobbytisch 
Ihnen ein guter Begleiter sein. Be- 
rechnungsgrundlagen, Berechnungs- 
beispiele, Tabellen, Vergleichslisten, 
Digitaltechnik, Netzgeräte, BASIC- 
Programme zur Berechnung spezi- 
fischer Schaltungen usw. sind in 
übersichtlicher Form dargestellt. 
Ca. 300 Seiten. 


Best.-Nr. 1 29,80 DM 


DM nusstonsercorums- wo 
RER RERCN 


TBB-Handbuch, Band 2, Hofacker 
Dieses Buch ist die Fortsetzung des 
erfolgreichen Handbuches, Band 1. 
Ein Buch, das sich in der Hand des 
Praktikers bestens bewährt hat. 
Weitere neueste Schaltbeispiele und 
Berechnungsgrundl., Experimentier- 
und Versuchsbeschreibungen. Inte- 
grierte Spannungsregler, Wärmeab- 
leitung, Operationsverstärker Ein- 
führung, RC-Zeitglieder, Transistor- 
tester u.v.a. 


Best.-Nr. 2 19.80 DM 


Electronic im Auto, H. Gebauer 
Mit Handbuch für Polizeiradar. 
Ein Buch für jeden technisch inter- 
essierten Autofahrer. Es zeigt Ihnen 
die vielen Möglichkeiten zur Ver- 
besserung von Sicherheit, Leistung 
und Fahrkomfort in Ihrem Auto. 
Thyristorzündung, Beschleunigungs- 
messer, Drehzahlmesser, Batterie- 
ladegerät, Alarmanlagen u. v. a. 
Best.-Nr. 3 9,80 DM 


GS.LORENZ 


IC-Handbuch, C. Lorenz 
Ein Handbuch für digitale und 
lineare integrierte Schaltungen. 
Daten- und Auswahl-, Vergleichs- 
listen, Gehäuseformen, Grundlagen, 
viele Schaltbeispiele, Printvorlagen, 
u. v. a. Alles über TTL-Technik, 


C MOS, MOS-Schaltungen, inte- 
grierte NF-Verstärker u. v.a. 
Best.-Nr. 4 19,80 DM 


Deutsch 


IC-Datenbuch, D. Steinbach 
Daten- und Auswahllisten der ge- 
bräuchlichsten integrierten Schalt- 
kreise. Digital und analog. Gerade 
bei ICs ist es wichtig die Anschluß: 
folgen genau zu kennen. Die wich- 
tigsten TTL-Schaltkreise, NF-Ver- 
stärker, C-Mos Serie, lineare Schal- 
tungen wie Operationsverstärker, 
Komparatoren, Spannungsregler, 
Trigger-Schaltungen, u. v. a. Das 
IC-Datenbuch wird auch Ihnen ein 
unentbehrlicher Begleiter bei allen 
Arbeiten mit integrierten Schal- 
tungen sein. 


Best.-Nr. 5 9,80 DM 


" cMOS 
m 
LINEAR 

IE Scheitungen 


IC-Schaltungen, D. Steinbach 
Hier finden Sie eine gelungene Zu- 
sarnmenstellung der wichtigsten An- 
wendungsbeispiele aus dem Bereich 
der integrierten Schaltungen. TTL, 
C MOS, Linear. Alle Schaltungen 
sind übersichtlich und klar darge- 
stellt und mit einer kurzen, jedoch 
sehr genauen Beschreibung ver- 
sehen. Tastenenprellung, Zähler, 
Impulsgeber, Codierer, Dekodierer, 
Datenübertragung, Serien-Parallel- 
Wandler, Digitalvoltmeter u. v.a. 

Best.-Nr. 6 19,80 DM 


Elektronik Schaltungen, Hofacker 
Die ideale Schaltungssammiung zum 
Basteln u. Experimentieren, Schalt- 
ungen mit Öperationsverstärkern, 
Spannungsreglern, TTL, C-MOS- 
Schaltkreisen. MOS Uhr mit Wecker- 
elektronischer Würfel u. v. a. 

Best.-Nr. 7 9,80 DM 


C.lorana 


IC Raxznleitungs IGRIT 


IC Bauanleitung Handbuch -IC 
-KIT, C. Lorenz 
Ein Bauanleitungsbuch mit vielen 
hochinteressanten Bauanleitungen 
aus dem Bereich der LSI Schaltungs- 
technik. Schaltbeispiele mit Print- 
vorlagen zum Selbstherstellen der 
Leiterplatten mit genauesten Be- 
schreibungen. Hochaktuell und 
brandneu: Funktionsgenerator XR 
2206, MOS-Uhr mit Wecker, pro- 
grammierbarem Wecktongenerator, 
Schlummerautomatik, IC-Netzteil, 
Experimentieranleitung und Grund- 
kurs über Flip Flops, u. v. a. Zu 
allen Schaltungen finden Sie Pla- 
tinenvorlagen oder Sie können die 
Experimentierschaltungen auf der 
Experimentierplatine WH-1 gdurch- 
führen. Über 100 Seiten. 


Best.-Nr. 8 19,80 DM 


HM 


Sotstaurgen 


Feldeffekttransistoren, C. Lorenz 
Der Feldeffekttransistor (FET) ge- 
hört heute zu den interessantesten 
Bauteilen überhaupt. Wie man da- 
mit experimentiert, wie man seine 
Funktion versteht und wie man da- 
mit brauchbare u. hochinteressante 
Schaltungen aufbauen kann, zeigt 
Ihnen dieses Buch. Grundlagen, 
Kennlinienfelder, Tabellen, Rechen- 
beispiele, Anschlußbilder und eine 
Vergleichsliste für Feldeffektransis- 
toren bilden den Kern dieser um- 
fangreichen Darstellung. Alles in 
allem finden Sie hier eine praxis- 
nahe und komplette Arbietsunter- 
lage, mit der Sie im Beruf und auch 


im Hobby erfolgreich arbeiten 
können. 
Best.-Nr. 9 9,80 DM 


Elektronik 
und Radio 


Elektronik und Radio, C. Lorenz 
4. Auflage. Völlig neu bearbeitet 
und stark erweitert. Eine Schritt 
für Schritt Einführung in die 
Radiotechnik mit vielen Bildern. 
Vom einfachen Diodenempfänger 
(Detektor) bis zu interessanten 
Sender- und Empfängerschaltungen 
(Minispione). IC-Radio, IC-Sender, 
Antennen, Berechnungsgrundlagen, 
Tabellen u. v. a. Über 150 Seiten. 
Best.-Nr. 10 19,80 DM 


NF-Verstärker, €. Lorenz 
Grundlagen der integrierten NF- 
Verstärker, Berechnung von kom- 
pletten IC-NF-Verstärkerstufen. An- 
wendungsbeispiele mit den inter- 
essantesten und gebräuchlichsten 
Standard IC-NF-Verstärkern wie 
TBA 800, TBA 830, usw. Printvor- 
lagen, Auswahltabellen, Experimen- 
tieranleitungen und Anschlußbilder 
machen dieses Buch zu einern unent- 
behrlichen Begleiter für alle, die 
sich m. NF-Verstärkern beschäftigen 
wollen. 


Best.-Nr. 11 9,80 DM 


INTEGRIERTER 
SCHALTUNGEN 


BIS, Beispiele integrierter Schal- 
tungen, H. Bernstein 
Auf über 130 Seiten Anwendungs- 
beispiele mit integrierten Schalt- 
kreisen, Zeitgeber 555, Funktions- 
generator ICL 8038, Opto Elektro- 
nik, Operationsverstärker, Festwert- 
speicher (ROM), u. v. a. 


Best.-Nr. 12 19,80 DM 


Elena 


HEH, Hobby Elektronik Handbuch 
C. Lorenz 
Das Schaltungsbuch f, jeden Hobby- 
elektroniker, Schaltbeispiele und 
Bauanleitungen aus dem gesamten 
Hobbybereich. Lichtorgeln, Alarm- 
anlagen, Eiswarngerät fürs Auto, 
PLL-Schaltungen u. v.a. 


Best.-Nr. 13 9,80 DV 


IC-Vergleichsliste, C. Lorenz 
Neben integrierten Schaltungen sind 
auch noch Transistoren, Dioden, 
optoelektronische Bauteile, Sicher- 
ungen und Röhren in dieses prak- 
tische HB aufgenommen worden. 
Das ideale Nachschlagewerk, wenn 
es dann gilt das richtige Bauelement 
für die gewünschte Anwendung zu 
finden. Dieses Buch wird Ihnen in 
der Praxis viele Dienste erweisen 
können. Viele Auswahl- und Ver- 


gleichslisten mit Datenangaben. 
Ca. 800 Seiten. 
Best.-Nr. 14 29,80 DM 


OPTOELEKTRONIK 


INFRAROT - SENDER » EMITTER 
OPTU-VERBLEICHSLISTE « LER 


Opto-Handbuch, C. Lorenz 
Das Handbuch für die gesamte 
Optoelektronik. Eine Einführung 


und ein ideales Nachschlagwerk. 
Grundlagen, Definitionen aller 
Kenngrößen, Opto-Lexikon, Be- 


rechnungsgrundlagen, Lichtsender, 
Lichtempfänger, Anzeigen, Infrarot 
Detektoren, Optokoppler, Opto- 
Vergleichsliste, u. v. a.106 Seiten. 
Best.-Nr. 15 19,80 DM 


C MOS Einführung, Entwurf, Schalt- 
beispiele, Teil 1 H. Bernstein 
Vom C MOS Gatterbaustein über 
Schieberegister und Zähler bis hin 
zum C MOS Schreib- Lesespeicher. 
Insgesamt werden neunzehn inter- 
essante und bekannte C MOS Schalt- 
kreise beschrieben. Zu jedem Bau- 
element sind genaue Daten, Schalt- 
bild und Anwendungsbeispiele ange- 
geben. Im großen Applikationsteil 
finden Sie: C MOS-Kippstufen, 
Addierwerke u. Rechenschaltungen, 
Digital Analog Wandler, Schiebe- 
register für analoge Spannungen, 
Multiplexsysteme f. analoge Signale 
u. v. a. Eine komplette Einführung 
u. gut geeignet für das Selbststudium 
der C MOS Technik. 140 Seiten. 
Best.-Nr. 16 19,80 DM 


C MOS Entwurf u. Schaltbeispiele, 
Teil 2, H. Bernstein 
Fortsetzung von Best-Nr. 16. An- 
wendungsbeispiele mit genauen 
Schaltungsbeschreibungen und Bau- 
elementunterlagen. Daten, An- 
schlußbelegungen weiterer wichtiger 
hochintegrierter C MOS Elemente. 
Ein komplettes Arbeits- u. Experi- 
mentierbuch. C-MOS Uhrenschal- 
tungen, Schieberegisterschaltungen, 
Parallel-Serien Umsetzung, statische 
u. dynamische Speicherschaltungen, 
Zählschaltungen, Digital Analog- 
Wandler, Analog Digital Wandler. 
Digital Voltmeter, 1/O Register- 
schaltungen. RAM und ROM An- 
wendungen. Über 140 Seiten. 
Best.-Nr. 17 19,80 DM 


& 
CMOS 


C MOS Entwurf u, Schaltbeispiele, 
Teil 3, H, Bernstein 
Fortstetzung von Best.-Nr. 17. Eine 
sehr umfangreiche Applikations- 
sammlung mit hochintegrierten C 
MOS Elementen. Speicher- und 
Steuerschaltungen, Multiplex- und 
Datenbussysteme, Liquid Cristal 
Anzeigen, Uhrenschaltungen, PLL- 
Schaltungen, Optoelektronik in 
Verbindung mit C MOS. Aufbau 
und Wirkungsweise der Prozeß- 
rechentechnik, Arithmetische Lo- 
gische Einheiten (ALU) u. andere 
wichtige Funktionen aus der Prozeß- 
rechentechnik. RAMs, ROMs, und 
FIFO-Speicherschaltungen. 

Best.-Nr. 18 19,80 DM 


IC Experimentier Handbuch -IC, 
-EX, C. Lorenz 
Eine sehr umfangreiche Schaltungs- 
und Bauanleitungssammlung mit 
neuen, jedoch meist beim Fach- 
handel erhältliche Standard ICs. 
Rechnerschaltungen, Mikropro- 
zessoren, 1/O-Schaltungen, Stopp- 
uhren, druckende und anzeigende 
Rechner, Digitalvoltmeter, Hilf- 
schaltungen für den Elektronik 
Experimentierer, A/D-Wandler, Fre- 
quenzzähler u. v. a. Viele Schal- 
tungen können auf der IC KIT 
Experimentierplatine WH-1g auf- 
gebaut werden. 


Best.-Nr. 19 19,80 DM 


OP 


AMP 


€. toramı 


VERSTAREER 


Operationsverstärker, C. Lorenz 
Dieses Buch umfaßt das gesamte 
Gebiet der linearen Schaltungs- 
technik und stellt ein in dieser 
Preislage bisher noch nie dage- 
wesenes Nachschlagwerk und Ein- 
führungshandbuch dar. Bestens ge- 
eignet für das Selbststudium. Nach 
einer pädagogisch geschickt ge- 
machten Einführung folgen theo- 
retische Arbeitsunterlagen und die 
zugehörigen Schaltbeispiele mit 
Daten und Gehäuseanschlüssen. 
Dieses wertvolle Buch dürfte seinen 
Platz auch bei Ihren Arbeitsunter- 
lagen finden, und wird dann immer 
son Nutzen sein, wenn es um die 
Lösung von nicht routinemäßigen 
Aufgaben geht. Über 150 Seiten. 
Best.-Nr. 20 19,80 DM 


E.Lorm 


Digitaltechnik Grundkurs, C. Lorenz 
Ein Einführungskurs in die Digital- 
technik für Anfänger und Fortge- 
schrittene. Ein Fachbuch für den 
programmierten Selbstunterricht. 
Der ideale Kurzlehrgang für das 
Selbststudium. Der Kurs vermittelt 
Ihnen alle wichtigen Grundkennt- 
nisse vom TTL-Gatter bis zum 
Mikroprozessor und Lösung von 
Schaltungsaufgaben durch Software. 
Viele Versuchsaufbauten u. Experi- 
mente aus diesem Kurs können auf 
der IC-KIT Platine WH-I1g durch- 
geführt werden. Grundlagen, Gatter, 
Zähler, programmierbare Zähler, 
IC-Tester, Schieberegister, Speicher, 
Mikroprozessoren u. v. a. 


Best.-Nr. 21 19,80 DM 


Mikroprozessoren, Eigenschaften u. 
Aufbau, Teil 1, H. Bernstein 
Grundlagen, Eigenschaften u. Auf- 
bau von Mikroprozessoren. Organi- 
sation von Recheneinheiten und 
Mikroprogr. Programmierung und 
Klassifizierung v. Mikroprozessoren. 
Ablaufdiagramm, Flußdiagramm. 
Ein Cip-Technik und Multi Chip- 
Technik, Transfer-- und Sprung- 
funktionen. Speichertechnik: RAMs 
ROMs, FIFO, FILO. Programmier- 
bare logische Arrays (PLA). An- 
wendungsbeispiele u. Anwendungs- 
bereiche. Über 120 Seiten. 

Best.-Nr. 22 19,80 DM 


ELEKTRONIK 
GRUND 
KURS 


» 


Elektronik Grundkurs, C. Lorenz 
Eine leichtverständliche und pädago- 
gisch geschickt gemachte Einführung 
in die Technik der elektronischen 
Schaltungen. Ein Kurzlehrgang und 
Schnellkurs zugleich. Aber auch ein 
recht brauchbares Nachschlagwerk 
für den fortgeschrittenen Elektro- 
niker. Mit wenig Mühe können Sie 
sich hier die Grundkenntnisse der 
elektronischen Schaltungspraxis an- 
eignen. Das Buch schafft die Voraus- 
setzungen für ein erfolgreiches und 
sicheres Arbeiten mit interessanten 
Schaltkreisen modernster Techno- 
logien. Unentbehrlich f. das Experi- 
mentieren mit den heutigen moder- 
nen hochintegrierten Schaltkreisen. 
Best.-Nr. 23 9,80 DM 


280 
28, 28000 


id 
Mikrocomputer Technik, Hans 
Peter Blomeyer-Bartenstein 

Völlig neue Auflage: Herbst 1979. 
In diesem Buche finden Sie eine 
umfassende, einführende u. weiter- 
führende Hilfe zum Einstieg in die 
Mikrocomputertechnik mit vielen 
Schalt- und Programmierbeispielen. 
Als praktische Betrachtungsgrund- 
lage dient das supermoderne Micro- 
computerkonzept ZBOA von 
ZILOG. Das Buch geht auf alle 
wichtigen Zusammenhänge ein und 
erklärt diese dem Leser so aus- 
führlich, daß kaum noch Fragen 
offen bleiben. über 240 Seiten. 
Best.-Nr. 24 29,80 DM 


Gaonenz 


Eine leicht verständliche 
Einführung in die 
Mikracomputeriechnik 


HobL:y Computer Handbuch, 

C. Lorenz 
Eine leicht verständliche Einführung 
in die Mikrocomputertechnik. Diese 
sehr umfangreiche Einführung in 
die Microcomputertechnik dürfte 
zu diesem Preis einmalig sein. Auf 
über 450 Seiten finden Sie — 
Grundlagen der Computer- und 
Microcomputer-Technik, was ist ein 
Microcomputer? Microcomputer 
KITs, Einplatinencomputer, CAT, 
OSI, POLY 88 u. v. a. Das ideale 
allumfassende Buch für den Micro- 
computertechniker. Für Industrie- 
anwendung ebenso geeignet wie für 
den Hobby-Computer-Fan. 
Best.-Nr. 25 29,80 DM 


H.Bernatein 


Mikroprozessor 


Mikroprozessor, Teil 2, H. Bernstein 
Die Fortsetzung von Best.-Nr. 22. 
Technologie von Mikroprozessor- 
und Speicherbausteinen. Festwert- 
speicher, PROM, EPROM, FIFO, 
Schieberegister, MPR-, ARL- und 
SAR-Register. Aufbau eines Mikro- 
prozessorsystems mit 8080, RAM- 
und ROM-Schnittstellen. Befehls- 
satz 8080. Über 120 Seiten. 

Best.-Nr. 26 19,80 DM 


SOFTWARE 
HAHDRIGCH 


Mikroprozessor Software Handbuch 
C. Lorenz 
Grundlagen und Einführung in die 
Mikrocomputerprogrammierung 
und Programmiersprachen (BASIC, 
FORTRAN, Assembler-Sprachen). 
Zusammenstellung der wichtigsten 
Befehlslisten: 8080, Z80, M68B00, 
6502 etc. Ein Software Handbuch 
für jeden, der mit Mikroprozessoren 
oder Mikrocomputern zu tun hat. 
Best.-Nr. 27 29,80 DM 


Microcomputer Lexikon u. Wörter- 
buch von A-Z, C. Lorenz 
Einglisch/Deutsch — Der Fachaus- 
druck wird übersetzt, ausführlich 
erklärt und erläutert. Deutsch/ 
Englisch — Übersetzung des Fach- 
ausdrucks. Ein Hilfs- und Arbeits- 
buch für jeden, der sich heute mit 
der modernsten Elektronik beschäf- 
tigt. Viele engl. Ausdrücke werden 
heute in der Elektronik, Computer- 
und Mikroprozessortechnik ver- 
wendet und oft fehlt uns eine 
genaueste und präzise Erläuterung. 
Ein Lexikon und Wörterbuch in 
einem einzigen Buch vereint. 

Best.-Nr. 28 29,80 DM 


ohne Abbildung 
Erscheint ca. Ende 1981 


Mikrocomputer Datenbuch, Lorenz 
Eine übersichtliche u. sehr informa- 
tive Zusammenstellung der wichtigs- 
ten Mikroprozessorbausteine auf 
dem Markt. 8080A, 8085, 8048, 
ZB0, ZB, 6500, 6800, 2650, 1802, 
F8, 3870, 6809, PACE u. v. a, 
Daten, Anschlußbilder, wichtige 
technische und elektrische Daten, 
Architektur, grundlegende Eigen- 
schaften. Zu jedem Mikroprozessor 
werden dann auch noch die peri- 
pheren Bausteine sowie RAM und 
ROM Elemente behandelt. Das 
ideale Handbuch für jeden modernen 
Elektroniker. Ideal f. den Computer- 
Service. (Englisch) 


Best.-Nr. 29 49,80 DM 


Aktiv Training Microcomputer 8080 
8085, S. Lehrer 
Dieses Werk mit über 360 Seiten be- 
schäftigt sich ausschließlich mit den 
Microcomputerbausteinen und Peri- 
pherieelementen der 8080A und 
8085 Microprozessoren. Grundlagen 
Einführung 8080 Microcomputer, 
Programmieren in Assebmiler, PL/M 
Cimpiler, Speicherbausteine u. v. a. 
Ideal für jeden, der ein System mit 
8080, 8085 CPU besetzt. Auch der 
Z-80 Systembesitzer kann von 
diesem Buch viel profitieren. Am 
Schluß des Buches finden Sie noch 
ca. 150 Programmlistings in Ma- 
schinensprache (Nützliche Utilities 
und Spielprogramme). 


Best.-Nr. 30 49,80 DM 


57 Programme in BASIC, Lorenz 
Ein Buch mit techn.-wissenschaft- 
lichen Programmen u, einer großen 


Anzahl von Spielprogrammen in 
BASIC (Games). Ein Buch für 
jeden, der sich mit dem faszi- 


nierenden Hobby der Mikrocom- 
putertechnik befassen will. Alle 
Listings sind in BASIC und können 
auf den meisten Personal Computer 
Systemen gefahren werden. 

Best.-Nr. 31 39,00 DM 


ATARI BASIC Handbuch 

Das komplette Einführungs- und 
Programmierhandbuch für die neuen 
ATARI-Computer ATARI 400/800. 
Anhand von vielen Beispielen wird 
die Leistungsfähigkeit des ATARI- 
Computer-Systerns gezeigt. Auch 
für den Anfänger ideal als Ein- 
stieg gedacht. Das Buch kann auch 
als Kurs (Lehrgang) für die allg. 
BASIC-Sprache verwendet werden, 
Best.-Nr. 32 29,80 DM 


Dr J Halzenbichtor 


Mikrocomputer Programmierbei- 
spiele für 2650, Dr. J. Hatzenbichler 
Eine Einführung in die Programmie- 
rung von Mikrocomputern anhand 
des Prozessors 2650 von Signetics. 
Viele Programmierbeispiele in Ma- 
schinensprache, die Sie auf einem 
preiswerten Mikroprozessorsystem 
MIKIT 2650-P2 ausführen können. 
Zeitschleifenprogr., Blinkschaltung, 
Lauflicht, Stufenzähler, Stopuhr, 
Reaktionszeittester, u. a. Zu diesem 
Buch ist auch ein komplett aufge- 
bautes und getestetes Mikrocom- 
putersystern erhältlich, auf dem Sie 
alle beschriebenen Programme selbst 
ausführen können. Über 120 Seiten. 
(Nur solange Vorrat reicht, wird 
nicht mehr nachgedruckt.) 

Best.-Nr. 33 19,80 DM 


TINY BASIC Handbuch, Hermann 
Das erste deutschsprachige Hand- 
buch über Tom Pittman’s TINY 
BASIC. Eine Einführung in die 
TINY BASIC-Programmiersprache. 
Wie kann ich meinen Computer 
(KIM-1) erweitern und BASIC pro- 
grammieren. Systernvorschläge. 
Viele Programmierbeispiele, Tricks 
und Kniffe. 


Best.-Nr. 34 19,80 DM 


fhomaı Munnechr 


S 


IN 


Der freundliche Computer — Was 
können Sie mit einem Personal 
Computer anfangen? T. Munnecke 
Das Buch soll Ihnen auf die im Titel 
gestellte Frage eine ausführliche 
Antwort geben, Es eignet sich für 
alle, die bisher viel über Mikros ge- 
hört haben und gerne ausführlicher 
Bescheid wissen möchten. Viele 
interessante Fakten — Welche Com- 
putersprache ? Welche Anwend- 
ungen ? Welches Gerät soll ich mir 
kaufen ? 153 Seiten. 


Best.-Nr. 35 29,80 DM 


ohne Abbildung 


Microcomputer und Roboter 

Ein Buch für denjenigen, der sich 
externe Schaltungen für Micro- 
computer bauen möchte, die ro- 
boterartige Funktionen ausführen 
können. Spracherkennung, Analog-/ 
Digital-Wandler, Digital-/Analog- 
Wandler, Ultraschallsensoren, Licht- 
schranken, Tonerzeugung u. v. a. 
Erscheint Anfang 1982. 
Best.-Nr. 36 


ohne Abbildung 


Oszillographen Handbuch 
Ein Buch für jeden, der seinen 
Oszillographen optimal nutzen will. 
Der Anfänger, der noch nie einen 
Oszillographen benutzt hat, wird 
auf einfache Weise mit der Technik 
und Handhabung vertraut gemacht. 
Auch die Anwendung in Zusammen- 
hang mit den modernen Mikrocom- 
putersystemen wird beschrieben. 
Oszillograph als alphanumeres Dar- 
stellgerät u. v. mehr. Erscheint ca. 
Anfang 1982. 
Best.-Nr. 103 


29,80 DM 


19,80 DM 


ohne Abbildung 

1000 Elektronik Schaltungen 

Ein ideales Handbuch für jeden, 
der öfter eine Schaltung zur Lösung 
eines bestimmten Problems sucht. 
Tausend Schaltungen aus fast allen 
Bereichen der Elektronik. Indu- 
strielle Steuerschaltungen, Micro- 
computer, Peripherie, Hobby-Elek- 
tronik-Schaltungen u. v. a. mehr. 
Ein Buch, daß bei keinem Elek- 


troniker fehlen sollte. Erscheint 
ca. Mitte 1982, 
Best.-Nr. 104 49,00 DM 


ohne Abbildung 


Praktische Antennentechnik 

Ein Buch für jeden Funkamateur 
oder Hobbyfunker. Grundlagen, 
Einführung, praktische Besipiele, 
Berechnungsgrundlagen u. v. a. 
Erscheint ca. Anfang 1982. 

Best.-Nr. 107 19,80 DM 


MICROCOMPUTER 


Handbuch für SC/MP 

Ein echtes Handbuch für SC/MP 
(INS8060) Microcomputerbesitzer 
und solche die es werden wollen, 
Komplette Einführung mit vielen 
Schaltbeispielen, Schaltbildern und 
Programmlistings in Maschinenspra- 
che und TINY BASIC. Komplettes 
ELBUG-Listing, CPU-Karte, RAM- 
Karte, ROM-Karte, ROM-Program- 
mierer, Cassetten-Interface, Fern- 
sehinterface, Netzteil, Hex Ein-/ 
Ausgabe, SC/MP Einkartenmicro- 
computer u. v. a. 330 Seiten. 
Best.-Nr. 108 29,80 DM 


TTL-Experimentierbuch 

Eine kleine Einführung in die Digi- 
taltechnik. Grundlagen der Digital- 
technik kurz erklärt. Bauanleitung 
für einen praktischen Logik-Tester. 
Viele Experimente u. Anwendungs- 
schaltungen mit dem TTL Gatter- 
baustein 7400. Das ideale Ein- 
führungsbuch in die Digitaltechnik. 
Best.-Nr. 105 1 5,00 DM 


6502 Microcomputer Programmier- 
ung, P. Heuer 
Eine deutschsprachige Einführung 
in die Maschinensprachenprogram- 
mierung anhand des 6502 Micro- 
computers. Ein echtes Anleitungs- 
buch zum Einstieg in die Micro- 
computertechnik mit Hilfe des 
KIM-1. Viele Programmierbeispiele, 
die von einem Pädagogen speziell 
für Anfänger entwickelt wurden. 
Auch PET, AIM, SYM und ATARI- 
Besitzer brauchen dieses Buch. 
Best.-Nr. 109 29,80 DM 


CMOS-Experimentierbuch 

Eine kleine Einführung in die CMOS 
Schaltungstechnik. CMOS Grund- 
lagen, Behandlungshinweise für 
CMOS Bausteine, Zusammenst. der 
wichtigsten CMOS Bausteine und 
deren Anschlußbilder. Viele prak- 
tische CMOS Schaltbeispiele. Ideal 
für jeden Elektroniker. 


Best.-Nr. 106 1 5,00 DM 


Programmierhandbuch für PET 

C. Lorenz 
Ein für den PET produziertes Buch. 
Es beginnt da, wo Ihr mitgeliefertes 
Handbuch aufhört. Einführung Ma- 
schinenprogrammierung, Assembler, 
Ein-/Ausgabeprogrammierung, Pro- 
grammiertricks, Analog / Digital- 
Wandler, Graphik, Spracherkennung 
u.v. a. mehr. Viele Listings, die Sie 
selbst eintippen können. Viele 
Informationen eignen sich auch 
für VC-20-Besitzer. 324 Seiten. 
Best.-Nr. 110 29,80 DM 


M.Srühn 


PROGRAMMIEREN 
ZT 


TR5-80 


Programmieren mit TRS-80, Stübs 
Das erste in einem deutschen Ver- 
lag produzierte Buch über den er- 
folgreichen Personal Computer von 
TANDY. Ein Buch für jeden, der 
einen TRS-80 bereits besitzt oder 
vor der Entscheidung steht, wel- 
chen Computer er sich anschaffen 
soll. Einführung, Programmiertricks, 
Erweiterungen, Maschinenprogram- 
mierung und viele Programme (Lis- 
ting mit Beschreibung). 202 Seiten. 
Best.-Nr. 111 29,80 DM 


PASCAL Handbuch, E. Flögel 
Von BASIC zu PASCAL. Ein 
Einführungs- Lehr und Arbeits- 
buch für jeden der sich mit PASCAL 
beschäftigen will oder muß. Viele 
Programmbeispiele, viele Tricks wie 
PEEK und POKE, Einbinden von 
Maschinenprogrammen u. v. a. 

Best.-Nr. 112 29,30 DM 


C.Lorenz 


BAgIg 


PROORAWUBNNBUEN 
ZANIDENYWT 
Einführung 
und Nochschlagewerk 


BASIC Programmierhandbuch 

Einführung und Nachschlagewerk. 
Speziell für die BASIC-Versionen 
der modernen Microcomputersys- 
terne. Jeder Befehl wird ausführlich 
beschrieben und ein Beispielpro- 
gramm gezeigt. Sehr übersichtlich 
und praktisch. Am Schluß finden 


Sie ein komplettes BASIC-Pro- 
gramm, das Ihnen über einen 
Computer BASIC lehrt. 

Best.-Nr. 113 19,80 DM 


16 Bit Microcomputer, J. Koller 
Einführung, Daten, Eigenschaften, 
Anwendungen. Dieses Werk ist 
eine echte Sensation ! 

Alle 16 Bit Prozessoren werden 
beschrieben und erläutert. Appli- 
kationsbeispiele, Programmierhin- 
weise. TMS 9900, 8086, Z8000, 
MC 68000, NS 16000, IAPX 486, 
IAPX 432. Über 370 Seiten. 
Best.-Nr. 116 29,80 DM 


Der Microcomputer im Kleinbetrieb 
Das Buch für jeden Geschäftsmann. 
Auf über 170 Seiten erfahren Sie, 
was Sie als Gewerbetreibender oder 
freiberuflich Tätige über Microcom- 
puter und die Anwendung wissen 
sollten. Geschichtlicher Hintergrund 
Geräteauswahl, Beispiele aus der 
Praxis, Programmbeispiele wie z.B. 
Textverarbeitung, Reisebüro, Laden- 
kasse, Adressverwaltung, u. v. a. 
Betriebswirtschaftliche Auswertung, 
Finanzbuchhaltung, Erfolgsanalyse 
mit dem Microcomputer, Liqui- 
ditätsrechnung, kurzfristige Erfolgs- 
rechnung, Microcomputer für Frei- 
berufler, Grundlagen der Finanz- 
buchhaltung für Microcomputeran- 
wender. Dieses Buch kann Ihnen als 
Geschäftsmann für die Zukunft 
tausende einsparen. 


Best.-Nr. 114 39,80 DM 


ohne Abbildung 


FORTRAN für Heimcomputer 
Einführung in die FORTRAN-Pro- 
grammiersprache mit vielen Bei- 
spielen. Grundsätzliches über die 
verschiedenen Microcomputersys- 
teme, die bereits mit FORTRAN- 
Compiler lieferbar sind. Allgemeine 
Übersicht, Tips und Hinweise. 
Erscheint ca. Ende 1982. 


Best.-Nr. 117 19,80 DM 


E.Flögel 
Programmieren . 
k en. 


Programmieren in Maschinensprache 
mit 6502, E. Flögel, W. Hofacker 
Das deutschsprachige Werk über 
6502 Maschinenprograrnmierung. 
Einführung, Grundlagen, Eigen- 
schaften, Adressierungsarten, Be- 
fehlsarten. Wie entwickelt man ein 
6502 Maschinenprogramm? Hand- 
assemblierung, viele Programmbei- 
spiele mit genauen Angaben direkt 
zum Eingeben in den Apple II mit 
Adressangabe (keine blutleeren Bei- 
spiele ohne Adresse), Verwendung 
von Assemblern. AIM-Assembler, 
Disassembler, Relocator, 6522 VIA, 
6520, Interrupt, Fehlersuche in 
Maschinenprogrammen, Maschinen- 
sprache, Programmiertricks. Spe- 
zielle Abschnitte für Maschinen- 
sprachenprogrammierung über PET, 
CBM 3000, CBM 4000 u. VC-20, 
ATARI 400/800, Apple II, AIM 
sowie Ohio Scientific Challenger. 
Dieses Buch sollte jeder 6502 
Systernanwender besitzen. Ca. 240 
Seiten, 


Best.-Nr. 118 49,00 DM 


Anwenderprogramme für TRS-80 > 


von Martin Stübs 

Ein Buch, voll mit interessanten 
Anwenderprogrammen für TRS-80 
Level Il 16K und Video Genie 
(teilweise Diskette u./od. Cassette). 
Hauptsächlich Programme für den 
Manager, Geschäftsmann, Klein- 
und Mittelbetrieb. Auch einige 
interessante Spiele sind enthalten. 
Terminkalender, Reservierungspro- 
gramm für Omnibusunternehmen 
und Hotels, Textverarbeitung, usw. 
Best.-Nr. 120 29,80 DM 


C.larenz 


BASIC für Fortgeschrittene 

Endlich ein BASIC-Buch für den 
fortgeschrittenen Programmierer. 
Alle wichtigen Befehle aus der 
Stringmanipulation, Disk-Befehle, 
WAIT, INSTR, WHILE WHEND 
usw. werden an Beispielen be- 
sprochen. Alle Befehle sind über- 
sichtlich wie in einem Nachschlag- 
werk mit großen Überschriften an- 
geordnet. Dann folgt ein umfang- 
reicher BASIC Kurs für Fortge- 
schrittene mit vielen Beispielen 
(Inventur, Rechnungen schreiben, 
Adressenverwaltung usw.). Am 
Schluß finden Sie dann noch einen 
Vergleich der wichtigsten Sortier- 
methoden sowie ein Programm zur 
Vorhersage von Ereignissen. 

Best.-Nr. 122 39,00 DM 


Video Genie 


Geschäftsprogramme 
Utilities 
" Gompnterspiele 


C.larssı 


Programmieren 

in 
Maschinensprache' 
mit 


2830 


Programmieren in Maschinensprache 


(Z80), C. Lorenz 
Eine sehr ausführliche Einführung 
in die Z80 Maschinensprache mit 


vielen Beispielen. Die Beispiele 
können mit Hilfe des TRS-80 
Level II sowie dem T-BUG von 


TANDY und den T-BUG-Erwei- 
terungen (IN LOCO, T-STEP, T- 
LEGS) ausgeführt werden. Ein un- 
entbehrliches Buch für jeden, dem 
die BASIC-Programmiersprache von 
der Geschwindigkeit her zur Lösung 
seiner Aufgaben nicht mehr aus- 
reicht. 


Best.-Nr. 119 49,00 DM 


Microsoft BASIC-Handbuch 

Die deutsche Übersetzung des er- 
folgreichen Microsoft BASIC-Hand- 
books. Leicht verständliche Ein- 
führung mit vielen interessanten 
Programmbeispielen. Das kompe- 
tente Werk von Microsoft selbst. 
Ideat als Zusatzliteratur zu jedem 
BASIC-Buch, 


Best.-Nr. 121 29,80 DM 


IEC Bus-Handbuch, M. P. Gottlob 
Ein Handbuch und Nachschlage- 
werk für alle Besitzer von Com- 
putern mit IEC (IEEE 488 Bus). 
Dazu gehört auch der PET sowie 
alle CBM-Computer. Grundlagen, 
das BUS-System, Meßdatenüber- 
tragung, Adressierung eines Instru- 
ments, kl. IEC-BUS-Lexikon u.v.a. 
Best.-Nr. 123 19,80 DM 


Programmierbeispiele für CBM 

Ein Buch mit vielen BASIC-Pro- 
grammen für CBM und PET. 
Spiele, Geschäftsbereich, Erziehung 
und Wissenschaft, Utilities, Hilfen 
für Maschinensprachenprogram- 
mierung, trickreiche Programme. 
Viele Programme für wenig Geld. 
Best.-Nr. 130 19,80 DM 


Maschinensprache 
mit GBM 


Programmieren in Maschinensprache 
mit CBM 

An Hand eines praktischen Beispiels 
(Sortierroutine) wird der Uhnter- 
schied zwischen BASIC und Ma- 
schinenprogrammen gezeigt. Das 
Maschinenprogramm kann mit dem 
leistungsfähigen MONJANA/1 Mo- 
nitor in ROM erstellt werden. Am 
Schluß finden Sie weitere wichtige 
Informationen wie Dez/Hex-Um- 
rechnungstabelle, Befehlslisten, 
ASCII-Tabelle sowie eine ROM- 
Vergleichsliste zwischen 8k PET 
und den neuen CBM-Maschinen. 
Best.-Nr. 124 19,80 DM 


MONJANA Monitor im ROM 
Best.-Nr. 1241 79,00 DM 


ohne Abbildung 


ELCOMP, Fachzeitschrift für Micro- 
computertechnik 

Die kompetente Fachzeitschrift für 
das moderne Gebiet der Micro- 
computertechnik. Erscheint 10 x 
pro Jahr. Jahrespreis * 59,00 DM 
incl. MwSt., Porto und Verpackung. 
Wer die neuesten Informationen aus 
diesem Gebiet für sich nützen 
möchte, muß ELCOMP lesen. Soft- 
ware, Technische Tips, Program- 
miertricks, Bauanleitungen, System- 
beschreibungen, u. v. a. Jeden Monat 
brandneu. ISSN-Nr. 0171-0958 
Best.-Nr. 125 je Heft * 4,50 DM 


ELCOMP-Doppelheft 

Von den 10 Heften erscheint im 
Juli/August und November/Dezem- 
ber ein Doppelheft. 

Best.-Nr. 126 * 9.00 DM 


“ ab 1.1.1982 gelten die neuen Preise: 
Abbonement 69,00 DM, Einzelheft 5,00 DM 
Doppelheft 10,00 DM 


Einführung in die Microcomputer 
Programmierung mit 6800 

Eine sehr gute Einführung in die 
Microcomputertechnik mit Hilfe 
des Mikroprozessors 6800. Aus- 
führliche Erklärungen mit vielen 
Beispielen und Anleitungen. Theo- 
retische Grundlagen. CPU-Archi- 
tektur, Befehlssatz, Systemaufbau, 
Hilfsmittel der Programmierung, 
Trainingsprogramme, Systemkom- 
ponenten, FIRMWARE. Ein kom- 
plettes Monitorprogramm (Betriebs- 
systern) ist als Listing enthalten. 
Über 250 Seiten. 


Best.-Nr. 127 49,00 DM 


ohne Abbildung 


Programmieren mit dem CBM 

Ein Hand- und Programmierbuch 
für alle CBM-Besitzer der 3000, 
4000 sowie der 8000er Serie. Viele 
Tricks und Programmierbeispiele, 
Anleitungen. Erscheint Ende 1981. 
Best.-Nr. 128 29,80 DM 


ohne Abbildung 


ELCOMP Leser Programmierhandb. 
Hier fassen wir die besten Pro- 
gramme unserer ELCOMP-Leser zu- 
sammen. Programme für PET, CBM, 
TRS-80, AIM, Superboard, CAP, 
Exidy, Sharp, MZ80K, Apple Il, 
Nascom I und II und TI 99/4 
werden als Listing mit kurzer Be- 
schreibung allen Lesern zugänglich 
gemacht. Erscheint Anfang 1982. 

Best.-Nr. 129 69,00 DM 


ohne Abbildung 


Cobol für Anfänger 

Eine Einführung in die Cobol- 
Programmierung für den Micro- 
computer-Besitzer. Erscheint ca. 
Mitte 1982. 


Best.-Nr. 131 19,80 DM 


ohne Abbildung 


CP/M Handbuch 

Grundlagen, Einführung, Hilfs- und 
Handbuch für jeden der mit dem 
“Software-Bus’ arbeiten möchte. 
Ideal auch für Anfänger. Praktisches 
Handbuch für den Profi. Erscheint 
ca. Ende 1981. 


Best.-Nr. 132 19,80 DM 


ohne Abbildung 


Welches Betriebssyst. brauche ich? 
Ein Leitfaden und Handbuch für 
den Anwender der gehobenen Micro- 
computerklasse. UNIX, CP/M, 
OASIS, NORTHSTAR DOS, USCD'‘ 
Apple DOS, ATARI DOS, CP/A, 
usw. Erscheint Mitte 1982. 

3est.-Nr. 133 19,80 DM 


ohne Abbildung 


Microcomputer im Unterrichtsfeld 
M. Penzkofer 

Wie werden Microcomputer im 
Schulbetrieb eingesetzt? Grundlagen 
Wissenswertes, Tips, Erfahrungen 
und viele Beispiele. Für alle die die 
moderne Microelektronik für Schule 
Ausbildung und Erziehung nutzen 
wollen. Erscheint ca. Anfang 1982. 
Best.-Nr. 136 29,80 DM 


ohne Abbildung 


FORTH Handbuch und Einführung 
von E. Flögel, W. Hofacker 

FORTH ist nicht nur eine sehr 
leistungsfähige Programmiersprache 
— es ist schon fast eine “Religion”. 
FORTH eignet sich bestens für 
industrielle Steuerungen, Grafik 
etc. Grundlagen und viele Pro- 
grammbeispiele (Apple Il, Ohio, 
ATARI usw.). Erscheint Mitte 1982. 
Best.-Nr. 137 39,00 DM 


REOTSOFT 


Redysoft News 

Das Magazin für den Microcomputer- 
einsatz im kommerziellen Bereich. 
Redysoft-News erscheint in zwangs- 
loser Folge. Bisher sind drei Hefte 
erschienen. Aus dem Inhalt: 

Heft 1: Microcomputer für frei- 
beruflich Tätige. Die Anwendung 
von Microcomputern im Geschäfts- 
bereich. Microcomputer-Markt. Ein 
Microcomputer zum Arbeiten. Die 
Microschule. MICROS werden voll 
geschäftsfähig. Challenger Super- 
board, der ideale Einstieg. 

Heft 2: ACCEL - ein Compiler f. 
TRS-80 Level II BASIC. Maschinen- 
programme von Southern Software 
für TRS-80 Level Il 

Laden von Maschinenprogrammen 
ACCEL, DLOAD, RENUM, 
HDUMP, FGRAF, XREF, ZBUG, 
SDUMP, TSAVE, USRN, SRCH, 
LIFE1 + LIFE2. Auch Siemens 
auf VLSI-Kurs. Dateiverwaltung. 
Struktur von FIBU-BO. 

Heft 3: APPLE Utility Disk. 
Bilanzbuchhaltung u. Finanzbuch- 
haltung f. den Microcomputer TRS- 
80 Model II. ACCELu. ACCEL2 ?- 
BASIC-Compiler für den TRS-80 
Model I. Eine Spielcassette für den 
TRS-80. Adressenverwaltung. Dis- 
assembler. TAPECHECK. SAVE. 
Terminkalender. Lägerverwaltung. 
ADEKART. Computerspiele für 
höchste Ansprüche. 


Best.-Nr. 135 je Heft 2,00 DM 


ohne Abbildung 


ADA - Handbuch, E. Flögel 
Vorankündigung für Mitte 1982. 
Mit einer praktischen und leicht 
verständlichen Einführung soll hier 
dern Leser diese neue Programmier- 
sprache nähergebracht werden. 
APA wurde, wie Cobol vom US- 
Verteidigungsministerium ent- 
wickelt und soll die steigenden 
Kosten bei der Softwareentwicklung 
eindämmen. ADA ähnelt in ge- 
wisser Weise d. Programmiersprache 
PASCAL und dürfte bald zum 
neuen Standard werden. Zur Zeit 
(Mitte 1981) gibt es jedoch noch 
keinen Microcomputer auf denen 
ADA implementiert ist. 
Best.-Nr. 138 29,80 DM 


ohne Abbildung 


BASIC für blutige Laien 

von W. Hofacker 

Endlich ein Buch für den An- 
fänger und Laien. Ziel des Buches 
ist es, dem “blutigen Laien” die 
Grundlage der Programmiersprache 
BASIC zu vermitteln. Lernen wird 
nun zum echten Vergnügen und 
Freizeitspaß. Auch der Preis macht 
Spaß. Erscheint ca. Ende 1981. 
Best.-Nr. 139 nur 19,80 DM 


ELCOMP-Bücher 


Care and Feeding of the Commo- 
dore PET 

Das ideale Buch für den Hardware- 
Bastler. Viele Tricks, Schaltbilder, 
Hinweise und Erläuterungen für 
den, der gerne selbst Erweiterungen 
bauen möchte. Memory Map für 8k 
PET und CBM, Bauanleitung für 
eine serielle Schnittstelle u. v. a. 
Best.-Nr. 150 19,80 DM 


Microsoft 8k BASIC Reference 
Manual 

Eine sehr gute BASIC-Einführung. 
Auch als Handbuch zum Nach- 
schlagen bestens geeignet. Ideal 
für jeden PET, CBM, TRS-80, KIM- 
BASIC, SYM-BASIC, AIM- und 
APPLE -Besitzer. 73 Seiten DIN A4 
mit vielen Beispielen. 


Best.-Nr. 151 19,80 DM 


Complex Sound Generation with 
SN 76477 

Ein Applikationsheft für einen der 
interessantesten integrierten Bau- 
steine unserer Zeit. Ein LSI-Bau- 
stein zur Tonerzeugung. Je nach 
äußerer Beschaltung können Sie mit 
diesem Baustein die verrücktesten 
Töne erzeugen. Dampfeisenbahnge- 
räusch mit Dampfpfeife, Vogelge- 
zwitscher, Hundegebell, elektro- 
nische Orgel, Schuß mit Explosion 
u.v.a. mehr. 
Best.-Nr. 154 


intel 


Application Notes 


19,80 DM 


Englisch 


Expansion Hundlwok tor 6602 anıl 
6800 

Das idesle Hundbuch für allo KIM, 
SYM, AIM, PET und Challongnt 
Computer-Freunde. Das Buch he 
schäftigt sich ausschließlich mit 
dem S-44-Bus. Dies ist exakt der 
Bus von SYM, AIM und KIM. Sehr 


viele Schaltbilder: CPU-Platine, 
Hex-Tastatur Eingabe, Knsas City 
Interface, RAM u. ROM-Karte, 


Analog-Eingabe Board u. v. a. Das 
Buch ist für jeden 6502 Systembe- 
sitzer unentbehrlich. Ca. 150 Seiten. 
Best.-Nr. 152 19,80 DM 


Expansion 
Handhook 


Intel Application Notes 
8085, 8255, 8251) 

Dieses Buch braucht jeder, der mit 
8080, 8085 oder Z-80 Mikropro- 
zessoren arbeitet. 

Wir haben die interessantesten 
Applikationsberichte in diesem 
Buch zusammgefasst. Aus dem 
Inhalt: Designing with Intel’s Static 
RAM’s 2102, Memory Design with 
the Intel 2107B. 8255 Programm- 
able Peripheral Interface Appli- 
cations, Using the 8202 Dynamic 
RAM Controller u.v.a. 
Best.-Nr. 153 


(8080, 


29,80 DM 


The First Book of 80-US 

Für den TRS-80 Freund eine echte 
Preissensation. Die ersten fünf 
Hefte aus 80-US Journals in einem 
Sammelband zusammengefaßt. Voll 
mit vielen sehr interessanten Hard- 
und Softwareideen, Tricks. Viele 
komplette Programmbeispiele (Lis- 
tings) in BASIC u. Z-80 Maschinen- 
sprache. Über 250 Seiten DIN A4. 
Farbiger Umschlag. Dieses Buch 
sollte jeder TRS-80 Besitzer oder der 
es werden will im Schrank haben. 
Best.-Nr. 155 29,80 DM 


THE 
SECOND BOOK 


The second Book of Ohio Scientific 
Eingehende Beschreibungen über 
praktische und geschäftsorientierte 
Software. Speicher Test Programm, 
Tricks und Tips für Disketten-An- 


wender. Mini-Floppy-Expansion 
u.v.a. 159 Seiten. 
Best.-Nr. 158 19,80 DM 


Small Business Programs, S. Roberts 
Ein Buch für denjenigen, der die 
modernen Microcomputer (speziell 
TRS-80O, Apple, PET, North Star, 
Challenger) zur Rationalisierung in 
seinem Klein- oder Mittelbetrieb 
einsetzen möchte. Viele nützliche 
Tips, Hinweise und Programmier- 
beispiele. Dieses Buch sollte jeder 
Geschäftsmann u. Microcomputer- 
freund besitzen. 


Best.-Nr. 156 29,80 DM 


The third book of Ohio 

Wie erweitere ich mein Challenger 
System ? Universelle I/O-Karte, 
EPROM-Burner für 2716, EPROM, 
RAM-Karte, 6522 VIA-Karte. Wo 
notwendig mit kompletter Software. 
Dieses Buch braucht jeder Ohio- 


Benutzer. Komplette Schaltbilder 
und Aufbauhinweise. 
Best.-Nr. 159 19,80 DM 


The first Book of Ohio Scientific 
Das erste weltweit produzierte 
Buch für die erfolgreiche Ohio 
Scientific Challenger Computerserie. 
Grundlagen, viele Programmiertricks 
Hardwaretips, Umbauanleitungen, 
Programmierbeispiele u. v. a. Glanz- 
umschlag, 186 Seiten. 


Best.-Nr. 157 19,80 DM 


The fourth Book of Ohio Scientific 
Ein Buch voll mit Programmen für 
das Superboard, C4P, CAPMF und 
C28P. Die Softwarequelle für jeden 
Challenger-Fan. Alle Programme 
sind getestet und auch auf Cassette 
verfügbar. 170 Seiten Listings und 
Beschreibungen. 

Best.-Nr. 160 29,80 DM 
Best.-Nr. 8324 Cassette 29,80 DM 


ohne Abbildung 


The fifth Book of Ohio Scientific 
Fortsetzung der beliebten Reihe 
über die Ohio Scientific Computer. 
Hier liegt der Schwerpunkt wieder 
bei der Software. Viel interessante 
Software. Eine komplette Adressen- 
verwaltung mit Label und Listen- 
ausgabe. Mehrere Fakturierpro- 
gramme, viele interessante Spiele 
wie Autorennen, Tankwar, Ton- 
erzeugung, Joystickprogrammierung 
usw. Erscheint ca. Anfang 1982. 

Best.-Nr. 161 19,80 DM 


ATARI-BASIC - Learning by Using 
von Tom Rowley 

Ein sehr interessantes Lehr- und 
Programmierbuch für jeden ATARI- 
Besitzer. Kurze Programme und 
Lernbeispiele machen das Program- 
mieren zum Kinderspiel. Viele Pro- 
gramme in diesem Buch verwenden 
weiterführende raffinierte Program- 
miertechniken andere wiederum 
sind einfach und ideal für den Erst- 
kontakt mit dem ATARI-Mikro- 
computer. Tonerzeugung, Grafik, 
Joystickprogrammierung, Player 
Missle Graphic, Video-Kunst u. v. a. 
Ca. 75 Seiten. 


Best.-Nr. 164 19,80 DM 


Fuamah Alrder 


BASICS 
Movements in BASIC 
Movements in Machine Languagg 
Movements of Missiles 
Overlapping Detection 
Soundfeatures 
Programming the Joysti Y 


PROGRAMS 


BACKGAMMON 
SMARTY 
BOMBER 

RÖBOT ATTACK } 
BALL 
BARRIER 
KNIGHT-BATTLE 
GUNFIGHT 


Games for the ATARI 400/800, Sam Roberts 

Wie programmiere ich meine eigenen Spiele auf meinem ATARI 
Privatcomputer? Dieses Buch zeigt Ihnen auf einfache Weise den 
Weg in die wunderbare Welt der Spiele — Programmierung. 

Sie nutzen voll die phantastischen Grafik und Tonausgabe-Möglich- 
keiten des ATARI-Computers. Viele kleine und sehr lehrreiche Pie 
grammbeispiele machen dieses Buch zu einem echten Erlebnis. Eine 
Vielzahl von umfangreichen BASIC-Programmen wie Robot Attack, 
Bomber, SMARTY, BACKGAMMON usw. können Sie aus dem 
Buch direkt in Ihren Computer eintippen und abspeichern. Ein 
komplettes AKTION Spiel in Maschinensprache ist als kommen- 
tierter Quelltext und Hexdump im Buch vorhanden. Dieses Spiel 
mit dem Namen Gunfight wird Sie begeistern. Auf ca. 128 Seiten 
Viel Information. Best.-Nr. 162 nur 19,80 DM 


Hayden-Bücher 


The S-100 Bus Handbook 

(enthält den Neuen $-100 Standard). Alles 
was Sie über den $-100 Bus wissen sollten. 
Einführung, Schaltungen. Schaltbilder der 
oft verwendeten S-100 Platinen. Service u. 


Fehlersuche in $-100-Systemen, Interface- Best.-Nr.: 255 


beispiele u. v. a. 256 Seiten Großfomat. 
Best.Nr.: 254 49,00 DM 


BASIC Computer Programs in Science and 
Engineering. (250 Seiten Großformat) 
Programme aus den verschiedensten Be- 
reichen m. genauen Beschreibungen. Kom- 
plexe Zahlen, Engineering, Mathematik, 
Matrizen, Analyse von Daten, Elektro- 
technik, Electronic, Filterberechnung usw. 
Best.-Nr.: 257 39,00 DM 


sesang ed Irn 
JAMES S COAN 


INDEX 


BASIC BASIC 

Eine Einf. in die BASIC-Programmierung 
v. Microcomp. Eines der besten BASIC- 
Bücher weltweit. Viele Beispiele aus dem 
professionellen u. wissenschaftl, Bereich. 
39,00 DM 


APL - An Inroduction 

Ein Programmier- und Arbeitsbuch. Ein 
Einführungsb. zum Selbststudium von APL. 
Viele Beisp., Übungsbeisp. m. Lösungen. 
245 Seiten Großformat. 


Best.-Nr. 258 39,00 DM 


Bw 


Simulating Stimulations, v. C. W. Engel 
12 einzigartige Programme in BASIC f. d. 
Comp.-Hobbyisten. (Kunstauktion,Monster 
Chase, Lost Treasure, Gone Fishing, Space 
Flight, Starship, Forest Fire, Navigation, 
Business Management, usw. 


Best..Nr.: 256 19,80 DM 


Ten Easy Puces: 

Creative Programming for Firm and Profi 
10 Beispielhaft beschriebene BASIC-Pro 
gramme. Schritt f. Schritt wird jeder Befehi 
u. Zusammenhang erläutert. Schwerpunkt 
Simulationsprogramme. Sehr gut geeigne 
f. Ausbildung, Selbststudium und als Nach 
schlagewerk. 


Best.-Nr. 259 29,80 DM 


BASIC Computer Programs für Business, 
Vol, Charles D. Sternberg 
Uber 35 Programme aus dem Gebiet : 
Budget, Abschreibung, Cash-Flow, 
Grundstück swertvergleich, Accounts 
Payable, Auftragseingang, Inventur-Um- 
schlagsanalyse, Produkt-Terminplanung u. 
v. a. Alle Programme sind ausführlich be- 
schrieben. Ein sehr wertvolles Buch. 250 
Seiten, Großformat 


Best.-Nr. 260 3,- 


Sixty Challen 
Problems with 
BASIC Solutions 


DONALD D. SPENCTR 


[DRSTITEN 


Sixty Challenging Problems with BASIC 
Solutions. 60 Spiele, Puzzles, mathema- 
lische und wissenschaftliche Problembe- 
schreibungen, die der Programmierer in 
BASIC lösen soll. Am Ende des Buches 
sind zur Kontrolle alle Lösungen (60 BASIC 
Programme) aufgeführt. 


Best..Nr.: 263 19,80 DM 


HOW TO BUILDA 
COMPUTER- 
CONTROLLED 


ROBOT 


How to build a Computer controlled 
Robot, v. Tod Loofbourrow 

Komplette Bauanleitung füreinen mit KIM- 
1 gesteuerten Roboter. Viele Schaltungen 
A/D- D/A-Wandler mit Software. (Ultra- 
schall-Detektion, Spracherkennung u.v.a) 
Best.-Nr.: 253 


35,00 DM 


Musical Applications of Mieroprocsssor 
von Hal Chamberlin. 

Hal Chamberlin kann als Papst für Com- 
putermusik bezeichnet werden. In diesen 
660seitigen Buch hat er sein Wissen und 
sine Erfahrungen der Öffentlichkeit zu- 
gänglich gemacht. Grundlagen, Einführung, 
Schaltungsbeisp., Programmbeisp., digitale 
Tonerzeugung, digitale Filter u.v.a. 
Best.-Nr.: 265 7990 DM 


Home Computers Can Make Your Rich 

Ein Experte zeigt Ihnen wie man mit 
Personal-Computern Geld verdienen kann. 
Was ist zu beachten? Viele Ideen. 


Best.-Nr. 262 19,80 DM 


ohne Abbildung 


BASIC Computer Programs For 
Business 
Best.-Nr. 261 39,00 DM 


The complette 1802 Cookbook 
Best.-Nr. 264 19,80 DM 


ESEITENS 


Advanced BASIC, Applications a. Problems 
Kann als Fortsetzung vonNr. 255 angesehen 
werden. Tiefgehende Informationen über 
Files, Strings, Geometrie, Reihen u. Folgen, 
Matrizen, Statistik u. Simulationen. 

Best.Nr. 266 39,00 DM 


How to Profit from your Personal Computer 
Dieses Buch ist für den Geschäftsmann und 
Computer-Hobbyisten geschrieben. Es zeigt 
Ihnen wie Sie den Computer für sich 
arbeiten lassen können und dabei noch 
Geld verdienen. (Viele Tips und Programm- 
beispiele in BASIC.) 


Best.-Nr. 267 39,00 DM 


KATHE SPARCKLEN 


Z-80 and 8080 Assembly Language 
Programming 

Ein Einführungsbuch in die Ma- 
schinensprache für BO80 und Z-80 
Systeme. Es bringt Ihnen fast alles, 
was Sie zur optimalen Nutzung 


Ihres Computers brauchen. Ideal für 
Anfänger. 
Best.-Nr. 272 engl.) 39,00 DM 


JAMES S. COAN 


Auther u HASTE BaSıl 


Basic FORTRAN 
Vom Autor des Buches "BASIC 
BASIC’. Eine ausgezeichnete Ein- 
führung in die Programmiersprache 
FORTRAN. Schritt für Schritt mit 
vielen Beispielen (über 80) lernen 
Sie diese leistungsfähige Sprache. 
Best.-Nr. 271 (engl) 45,00 DM 


Beat the ODDS 

Microcomputer Simulationen von 
Casino-Spielen, Trente-et-quarante, 
Routette, Blackjack, Craps, Chemin- 
de-fer. Eine extrem nützliche Pro- 
grammierhilfe für realistische Simu- 


lationen der wichtigsten Casino 
Spiele. 
Best. Nr. 273 39,00 DM 


ei: 
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BASIC with Style 

COBOL with Style 

PASCAL with Style 

Diese Buchserie ist eine Art 
“Hohe-Schule’’ für den ernst- 
haften Programmierer. Viele Tips 
Beispiele, nützliche Unter- und 


Hilfsprogramme für die Pro- 
grammerstellung am Arbeits- 
platz oder in der Freizeit. 


Top-Down Programing, Program 
Standard Odds and Ends sind 
die Hauptthemen in diesen drei 
sehr wertvollen Büchern. Jedes 


Buch ca. 145 — 200 Seiten. 
PASCAL with Style 

Best.-Nr. 268 39,00 DM 
COBOL with Style 

Best.-Nr. 269 39,00 DM 
BASIC with Style 

Best.-Nr. 270 39,00 DM 
Endlich ein Buch über den 1802 
Microprozessor 

Den leistungsfähigen 1802 


Microcomputer in CMOS Tech- 
nologie, der heute vorwiegend 
in der Industrie und KFZ- 
Technik eingesetzt wird und in 
riesigen Stückzahlen produziert 
wird, wurde bis jetzt wenig 
allgemeines Interesse entgegen- 
gebracht. Ganz zu unrecht! Den 
dieser Prozessor ist für das oben- 
genannte Einsatzgebiet hervor- 
ragend geeignet. Das Buch eignet 
sich für den Einsteiger genau so 
wie für den Experten. Ein- 
führung, Grundl. der Assembler 
Programmierung, Befehlssatz 
mit Erläuterungen. Ein kom- 
pletter 1802 Assembler als 
Listing, Übungsbeispiele m. Ant- 
worten. 


Best.-Nr. 264 19,80 DM 


by brice ward 


TAB-Books 


Microprocessor Programming for the 
Computer Hobbyist 

Dieses buch ist speziell für den 
Computer-Hobbyisten geschrieben, 
der sich bereits mit weiterführen- 
den Programmiertechniken und Da- 
tenstrukturen beschäftigen möchte. 
Inhalt: Höhere Programmiersprachen 
(PL/M,PL/1), arithmetische Funktio- 
nen, Suchprogramme werden im Zu- 
sarnmenhang mit dem Schachspiel- 
problem behandelt. Über 380 Seiten 
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Microprocessor/Microprogramming 
Handbook, Brice Ward 

Ein praktisches Handbuch für jeden, 
der sich mit Mikroprozessoren be- 
schäftigen möchte. Auf über 290 
Seiten finden Sie Grundlagen, alles 
über Programmierung und Anwen- 
dungsbeispiele der interessantesten 
integrierten Schaltungen. Inhalt: Ein- 
führung in die Mikroprozessortech- 
nik. Der Mikroprozessor von innen. 
MCS4, MCS40, MCS80, Speichersy- 
steme, Mikroprogrammierung in Ma- 
schinen- und Assemblersprache. 


in englischer Sprache 
Best.-Nr. 952 


Tann ra rn 


Microprocesror 


Programming 
tor Computer Hobbyists 


DM 39,-- 


DM 35.-- 


Beginner’s Guide to Computer Pro- 
gramming, Brice Ward 

Eine ideale Einführung in die Pro- 
grammierung von Computern (Mi- 
croprozessoren). Das Buch beginnt 
mit der Entwicklung einer einfachen 
Programmiersprache für den eigenen 
Bereich und zum Selbststudium, so- 
dann wird auf andere Sprachen über- 
gegangen. Inhalt: Grundlegende Pro- 
grammkonzepte, 1I/O-Schaltungen, 
Flußdiagramme, Programmtest, 
Schleifen, Indexregister, versch. Pro- 
grammiersprachen, Compiler, Cobol 
u. v. a., 480 Seiten, 364 Bilder , in 
englischer Sprache. 


Best.-Nr. 1015 DM 29,80 


How to build your own working 
ROBOT PET 

An incredible book that shows you 
how to construct your own robot 
and program it. Includes full de- 
tails on building a navigation sy- 
stem (Soniscan), a hearing method 
(Excom), a way of talking (Audigen) 
and an understandable language and 
grammer (Fredian). 

Eine wertvolle Hilfe für alle, die 
sich einen Roboter bauen wollen. 
(8085) CPU). Viele wertvolle Schal- 
tungen, die Sie im Zusammenhang 
mit TRS-80 oder 8085-Computern 
verwenden können. 238 Seiten. 
Best.-Nr. 1141 DM 29,80 


Tan aan No 108 wir. 


A BEGINNER Sg&UID 


MICROPR 


with pro) 


bi \ n 
a 5 RE 
vl tranal. 


Artificial Intelligence, Neil Graham 
Hier ist endlich ein Buch speziell 
über künstliche Intelligenz. Der Au- 
tor benutzt Computerspiele und Ro- 
botertechnik für die illustrative Be- 
handlung dieses brandheißen The- 
mas. Was ist der Unterschied zwi- 
schen einer Lösung einer komple- 
xen Programmieraufgabe und der 
Programmerstellung für intelligente 
Computerentscheidungen. 


Best.-Nr. 1076 DM 29,80 


Microprocessor 
Michael Hordeski 
A chipby-chip-comparison of todays 
modern microprocessors. 

Die wichtigsten Prozessortypen wer- 
den genau’ beschrieben (Schaltung, 
Blockdiagramm, Befehlslisten, Pro- 
grammbeispiele) und 
8080, 6800, F8, Z80, TMS 9900, 
SC/MP, Bit Slices, R6500, 264 S. 
Best.-Nr. 1053 


The BASIC Cookbook, 


Cookbook, von 


verglichen. 


DM 24,80 
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Tracton 

Ein komplettes Dictionary mit BA- 
SIC-Befehlen. Alle Befehle sind in 
alphabetischer Reihenfolge geordnet 
und jeder Befehl genau beschrie- 
ben. Zu jedem Befehl ist ein De- 
monstrationsbeispiel beigefügt. 
Dieses Buch braucht jeder BASIC- 
Programmierer! 


Best.-Nr. 1055 DM 24,80 


Digital Interfacing with an Analog 
World, Joseph J. Carr 

Wie entwirft und baut man Inter- 
faceschaltungen für Microcomputer? 
Der Schwerpunkt liegt bei der Ver- 
bindung mit der analogen Welt. 
Viele Tabellen, Schaltungen, Be- 
rechnungen und Hinweise. Über 400 
Seiten. 


Best.-Nr. 1070 DM 39,- 


By. Ken Tractm_ ... 


Eroiyihing you need Io kadı io ysl ho nam super- 
a0vancad TI 980 CPU simzle.chip procasser. 


By Ken Tradton 


How to Build your Own Working 
16-Bit-Microcomputer von Ken Trac- 
ton 

Alles, was Sie über den neuen Super- 
microprozessor TI9900 wissen müs- 
sen. Beschreibung des Schaltkreises, 
Peripherie-Bausteine für TMS9900. 
Tricks, Systemaufbau etc. Sehr in- 
teressant, da der TMS9900 das Herz 
des neuen Texas Instruments Perso- 
nal Computers ist. 


Best.-Nr. 1099 DM 14,80 


LE}, 


25 Games in BASIC (Listings). Die 
Programme laufen mit kleinen Ände- 
rungen auf den meisten Microcom- 
putern. Inhalt: Number, Letter, 
Stars, Trap, Bagels, Mugwump, 
Hurkle, „Snark, Reverse, Button 
Chomp, Taxman u.v.a. 


Best.-Nr. 8057 DM 9,80 


| Kl 
Challenging 
Computer 


} Games for 


TRS-80°/Apple’/PET' 


The creative compulerists’ learn-by-playing manual 
of fascinaling games and programming practice! 


by David Chanre f AN 


33 Challenging Computer Games for 
TAS-80, APPLE, PET 

Das Handbuch für den Computerist, der 
durch Spielen lernen will. Über faszi- 
nierende Spiele zur Programmierpraxis. 
tın Buch f. jeden Personal Computer-Bes. 


Best.-Nr.: 1275 29 80 DM 


The FORTRAN Cookbook 

Heute noch verwenden! eine Einführung 
ın die FORTRAN-Programmierspr., Grund- 
Ingen, Beispiele, Übungen und Beispiele aus 
«em Microcomputerbereich. (Mathe. Pro- 
lerne bei Computerspielen u. v. a.) 
Best.Nr.: 1187 29,80 DM 


Tan 1201 


HANDBOOK OF 
MILROBR TEDSOR 
Ar 9.0 


Handbook of Microprocsssor Applications 
(6800, 6802). Wie werden Microcomputer 
in der Praxis eingesetzt. Interfacetechniken 
u. Anwendung v. Maschinensprache, Schal- 
tungsbeispiele mit Software. Beschäftigt 
sich in erster Linie mit 6800, 6802 und den 
zugehörigen Peripheriebausteinen. 

Bost.-Nr.: 1203 29,80 DM 


Microcomputer Interfacing Handbook: 
A/D- und D/A-Wandler 

Ein Hand- u. Nachschlagebuch f. jeden der 
Analog/Digital od. Digital/Analog-Wandler 
an seinen Microcomputer anschließen will. 
Unentbehrlich f. die Anwendung des Micro- 
computers im industriellen Einsatz. 
Best.-Nr.: 1271 35,00 DM 


PASCAL 

Eine Programmieranleitung f. d. PASCAL- 
Freund. Wie verwendet man TINY PASCAL 
und Supersoft-PASCAL. Passt ideal zu 
diesen Paketen und TRS-80. Viele Pro- 
grammierbeispiele. (350 Seiten) 


Best.-Nr. 1205 35,00 DM 


Tap 1216 


FIBEROPTICS 


fwerything yau need Ic knnw on Iundamentais hardware 
and anplratian PLUS arlual projects you can hu“ 


"BY JOHN A. KUECKEN 


FIBEROPTICS 

Alles was Sie über d. Grundlagen, Hardware 
und Applikationen dieser faszinierenden 
neuen Technik wissen sollten. Mit Pro- 
jekten, die Sie selbst bauen können. 
(Übertragungsraten bis zu 1.354 x 109 
Bildpunkte pro Sekunde, das bringt die 
Fiberoptic!) 


Best.-Nr.: 1236 29,80 DM 


The Compiete Handbook of Robotics 

E. Safford, jr. 

Wie entwickle und baue ich einen Ro- 
boter. Es werden auch microcomputer- 
gesteuerte Roboter beschrieben, und wie 
man Roboter mit Computern zusammen- 
schaltet. Terminologie, Entwicklungs- 
stand, Sensoren, Grundlagen , das Ro- 
boter Gehirn“, Servomechanismus, Tips, 
Interfacing u. v. a. 


Best.-Nr. 1071 DM 29,80 


HOW TG DESIEN, 
BUILD R PADGARAM 
Yaun GRN RURAKING 
BRMFUTER SYSTEM: 


The cumplale comsirter build ıl baos- mellnsuy 
Hexign conyIruchen. programming, and de up“? 


How to Design, Build and Program your 
own Working Computer System 

R. Haviland 

Dieses Buch zeigt Ihnen Schritt für 
Schritt, wie Sie einen eigenen Computer 
aufbauen können. Es lehnt sich dabei 
an den erfolgreichen SC/MP von Natio- 
nat an. Ein Buch, das jeder SC/MP-Be- 
sitzer haben muß. 


Best.-Nr. 1111 DM 29,80 
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1001 Things to do with your Personal 
Computer, Mark Sawusch 

Computeranwendungen für jedermann, 
Geschäft und Finanzprogramme, mathe- 
matische Applikationen, technisch/wis- 
senschaftliche Anwendung von Personal 
Computern, Anwendungen in Erziehung 
und Ausbildung, Hobby Computer, Spie- 
le, Control- und periphere Applikatio- 
nen, künstliche Intelligenz. Viele Pro- 
gramme in BASIC, viele Tips. 330 Seiten 
Best.-Nr. 1160 DM 29,80 


PROGRAMS IN BASIC 


Fın und game program — non 
lagen far I TES-FOL FIT: van raten 


24 Tested Ready to RUN Game Pro- 
grams in BASIC, Ken Tracton 

Spaß- und Spielprogramme in BA- 
SIC. Viele Programme enthalten spe- 
zielle Anpassungshinweise an die 
Homecomputertypen TRS80 und 
PET. Viele Graphik- und Zeichen- 
programme. Ideal für jeden BASIC- 
Computer-Besitzer. 


Best.-Nr. 1085 DM 24,80 


Tau ucons tr: 


gram 


Pro 


mer’s 
LISP 


Wadern 171 
det ine 
at: 


Programmer’s Guide to LISP,K.Tracton 
Eine Einführung in die Computersprache 
LISP. LISP ist eine spezielle Interpreter- 
version, die sich gut für die Program- 
mierung im Bereich künstliche Intelli- 
genz eignet. Das Buch zeigt Ihnen Wege 
und Lösungen. Viele Programmbeispiele, 
210 Seiten. 


Best.-Nr. 1045 DM 24.80 


34 MORE Tested Ready-To-Run 
Game Programs in BASIC 

34 Spielprogramme für Video Genie 
und TRS-80, aber auch für andere 
BASIC Personalcomputer. Ein 
Buch, welches Ihnen viel Freude 
mit Ihrem Computer bereiten wird. 
Best.-Nr. 1228 35,00 DM 


Complefe programmıng ideabook 


from fun-and-gamen Io the 
putely prachca‘ 


by Wm. Stoit Watson 


67 Ready to Run Programs ın 
BASIC 

Ein Buch mit vielen Programm- 
beispielen für alle die einen BASIC- 
Computer haben (ab 4K RAM). 
Viele Tips, Anregungen und Hilfen 
bringen auch dem Erstanwender 
großen Nutzen, 


Best.-Nr. 1195 29,80 DM 


an 


WS BET Let 
An exciöng collection of entertaining 
and educational games amd graphics... 
espocially for computer bufls yust getting started! 


Computer Graphics with 29 ready- 
to-run Programs 

Eine Einführung in die Microcom- 
putergrafik für Anfänger. Eine 
wahre Fundgrube für denjenigen 
der gute Programmbeispiele mit 
Grafik sucht. (ldeai für Video 
Genie und TRS-80 Level II BASIC.) 
Best.-Nr. 1276 39,00 DM 
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Dragon Byte Disk Expansion Book 
Ein Büchlein für den, der seinen 
Ohio Scientific Computer zum Dis- 
kettensystem selbst ausbauen will. 
Sehr gute technische Informationen, 
die Sie sonst nur schwer finden. 

Best.-Nr. 311 29,80 DM 


How to build your own working 
Microcomputer 

Dieses Buch zeigt Ihnen wie Sie 
sich selbst einen einfachen Micro- 
computer bauen können. Programm- 
spiele, Funktionsdiagramme, Schalt- 
bilder. Auch für Anfänger geeignet. 
Best.-Nr. 1200 49,00 DM 
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The MC 6809 Cookbook 
Endlich ein ausführliches Handbuch 
für den extrem Leistungsfähigen 
6809 Prozessor, Hardware, Soft- 
ware, Architektur. Wie macht 
mans? Von Carl Warren. 


Best.-Nr. 1209 29,80 DM 


DESIGN & BUILD 
Our OWN CUSTOM 


t.. rom mög 
controls and! ! 


How to Design and Build your own 
Custom Robot 

Bauen Sie Ihren eigenen Roboter, 
der Ihre Arbeiten erledigen kann. 
Einführung, elektrische und mecha- 
nische Grundlagen, Microcomputer- 
Hardware (8085 und 780) u. v. a. 
Best.-Nr. 1341 59,00 DM 
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INHALTSVERZEICHNIS DER BASIC PROGRAMMBIBLIOTHEK VOL I - VOLV 


VOLUME ONE 

Part 1 - Business + Personal Bookkeeping Programs 

Nome Description 

Bond Computers price and interest for bond purchases. 

Building Analyzes the cost of building design proposals.. 

Compound Computes effective compound interest rotes, 

Cyclic Determines seasonal coefficients for two cycles. 

Decision 1 Makes a Lease/Buy decision for you. 

Decision 2 Makes a decision on whether to buy a component or make it. 
Depreciation Calculates depreciation by 4 different methods. 

Efficient Cal. the most efficient assignment of resources and / or personnel,. 
Flow Predicts your yearly cash flow. 

Installment Performs monthly installment accounting. 

Interest Computes interest accruals, monthly, 

Investments Computes annual rates of return on investments. 

Mortgage Makes a comparison of mortgage terms. 

Optimize Optimizes the layout for a plant, shop, office, etc. 

Order Determines your economic order quantity for inventory items. 
Pert Tree Performs an analysis of a pert network. 

Rate Computes true annual interest rates. 

Return ] Computes lessor’s rate of return for uncertain assets. 

Return 2 Computes a lessor”s rate of return after taxes. 

Schedule I Schedules N jobs in a shop with M machines, 

Part 2 - Games + Pictures 

Name Description 

Animals Four  Teach the computer all about animals. 

Astronaut Land your spaceship on another planet. 

Bagel Advanced number game, numbers may be algebraic, few clues. 
Bio Cycle Calculate your Bio-Life Cycle and plan your days. 

Cannons An advanced war game with big guns. 

Checkers Plays a regulation game of checkers. 

Craps A dice game with hard way odds. 

Dogfight Air fight w/missiles; between a phantom and a mig. 

Golf Plays any number of holes; inc. obstacle course. 

Judy Have a rap session with Judy via your computer. 

Line Up Simple number game, all you have to do is unscramble them. 
Pony Authentic horse race, any number of players. 

Roulette Gamblers delight, plays Las Vegas rules. 

Sky Diver Sky dive on another planet 

Tank A war game between two tanks. 

Teach Me Teach the computer to learn new things. 

A Newman He’s absolutely MAD! MAD! MAD! 

J.F.K. Our 35th, president. 

Linus Loveable "Peanuts" character, w/blanket. 

Ms. Santa A modern miss to put a twinkle in your eye. 

Nixon Former "United States" president. 

Noel Noel Christmas or anytime this is a beautiful creation. 

Nude A true work of art for anyone’s gallery. 


Peace A message for all seasons. 


Name 


Policeman 
Santa’s Sleigh 
Snoopy 
Virgin 


VOLUME TWO 


Description 


True and blue, he’s the law. 

In banner form, perfect for decorating the mantle, 
That paragon of Dogdom even plays football . 

A picture you can read as well as see. 


Part 3 - Math + Engineering Programs 


Name 


Beam 

Conv. 
Filter 

Fit 
Integration | 
Integration 2 
Intensity 
Lola 

Macro 

Max. Min, 
Navaid 
Optical 
Planet 

PSD 

Rand 1 

Rand 2 
Solve 
Sphere Trian 
Stars 

Track 
Triangle 
Variable 
Vector 


Part 4 - Plotting 


Binomial 
Chi-Sq. 
Coeff 
Confidence ] 
Confidence 2 
Correlations 
Curve 

Di fferences 
Duval Plot 
Exp-Distri 
Least Squares 
Paired 

Plot 

Plotpts 
Polynomial Fit 
Regression 
Stat 1 


Description 


Evaluates and selects steel beam sizes. 

Calculates convolutions. 

Calculates low pass filter components. 

Performs interpolations by spline fits. 

Uses Gaussion Quadrature to do integration, 

Integrates a function by spline fits. 

Calc. and plots RF or Acoustic intensities. 

Calc. Long, and Lat. from interstellar fix or distance. 
Simulates a language compiler. 

Calc. the max, + min. values of funct. over a special interval. 
Calc. position from altitude and azimuth of celestial bodies. 
Calculates Blackbody energies, w/filter look-up tables. 
Calculates Sun and Moon positions, hourly. 

Calculates Power Spectral Densities and FFT’s. 
Generates random numbers between O and |, 

Generates random integers between (X) and (Y). 
Solves polynominals by "Bairstows Methods" , 

Solves any spherical triangle. 

Locates 50 stars (celestial). 

Calc. course and distance and incremental vectors. 
Solves for all parts of any triangle. 

Finds all variables in BASIC programs. 

Calc, final position; given start and motion vectors 


+ Statistics Programs 


Calculates binomial probability distributions, 

Applies the Chi-Square test to samples. 

Calc. coefficients of fourier series to apprx. a function. 
Calculates confidence limits on linear regressions. 
Calculates confidence limits for a sample mean. 

Performs auto and cross correlations with plots. 

Fits 6 different curves by the least squares method. 
Calculates difference of means in non-equal varionces. 
Plots two functions on the same sheet. 

Calculates exponential distributions for a sample. 

Performs least squares fit by linear, exp., or power function. 
Compares 2 groups of data using the rank test. 

Plots 6 equations on the same sheet, 

Plots data points on standard teletypes. 

Performs least squares polynomial fit. 

Performs multiple linear fit with or without transformations, 
Finds the meon, variance and standard deviations. 


Name 


Stat 2 
T-Distribution 
Unpaired 
Variance | 


Variance 2 
xY 


Description 


Computes various stat. measures for a variable. 
Calculates normal and T-distributions.. 

Compares 2 groups of unpaired data, 

Performs one way analysis of variances. 

Analyzes a variance table of one way random design. 
Plots functions of X and Y. 


APPENDIX A - BASIC STATEMENT DEFINITIONS 


VOLUME THREE 


Part 5 - Advanced Business Programs 


Billing 
Inventory 
Payroll 

Risk 
Schedule 2 
Shipping 
Stocks 
Switch 
VOLUME FOUR 
Generol Purpose 
Bingo 

Bonds 

Bull 
Enterprise 
Football 
Funds I 
Funds 2 
Go-Moku 
Jack 

Life 

Loans 
Mazes 
Poker 

Popul 

Profits 
Qublic 
Rates 

Retire 
Savings 

SBA 
Tic-Tac-Toe 
VOLUME FIVE 


Performs posting and billing of accounts. 

Maintains data for inventory records. 

Computes payrolls with full set of deductions. 

Performs a risk analysis on capital investments. 

Performs the most effi. scheduling of men or resources to loca. 
Solves the problem of scheduling and assignments. 

Computes the value of stocks. 

Calculates the effects of a bond switch, 


Programs 

An age old favorite. "B9, C23, D4, E13, F21, BINGO! 
Computes the yields for a bond for different periods. 

IF you ever dreamed of being a Matador, here’s your chance. 
Take charge of the Enterprise while Capt. Kirk is on leave. 
Authentic NFL version of this well known sport. 
Calculates long-term predictions of funds. 

Plots the results of Funds 1. 

Ancient Chinese game of chance, 

Plays Blackjack, Las Vegas style. 

Life is truly a battle for survival, a real challenger! 
Calculates annuities, loans and mortgages. 

Generates unique maze puzzles for you to solve. 

Five card draw - for up to 5 players. 

Performs population projections for defined areas. 
Determines the profitability of a firms various depts. 
3-Dimensional Tic-Tac-Toe. 

Calc. the effective annual interest rate for stated interest. 
Calculates your Civil Service Retirement benefits. 
Computes savings plan profiles. 

Calculates repayment schedules for SBA loans. 

An all time favorite for young and old alike, 


Experimenter’s Programs 


Andy Cap 
Baseball 
Compare 
Confid 10 
Descrip 
Differ 
Engine 
Fourier 
Horse 
Integers 


Draws this famous cartoon character. 

Plays a full 9 innings of baseball, 

Compares two groups of data. 

Determines the confidence limits for a normal population. 
Provides a description of uni-variant data. 

Computes the diff. of the means for data of equal variance. 
Calculates the otto cycle of engines. 

This program evaluates fourier series. 

Draws a picture of a horse. 

Computes integers as the sum of other integers. 


Name 


Logic 
Playboy 
Primes 
Probal 
Quadrac 
Red Baron 
Regression 2 
Road Runner 


Description 


Determines conclusions from logic statements. 
Draws the playboy symbol. 

Factors numbers into their primes. 

Calc. Chi-Sq. and probabilities from 2X2 data sets. 
Solves quadratic equations 

Draws a picture of the infamous Red Baron. 
Calculates linear regressions. 

"Beep! Beep!" Draws a picture of the Road Runner. 


Roulette Computerized "Wheel of Fortune", plays roulette. 

Santa Old Saint Nick appears as jolly as ever. 

Stat 10 Calculates quantities for two groups of paired dota, 

Stat }} Computes sample statistics. 

Steel Calculates steel beam copacities. 

Top Computes cost for surfacing a road or driveway, etc. 

Vary Performs an analysis of a vari. table; one-way random design. 
Xmas Generates a "SINGING" Christmas card. 


APPENDIX B - STATEMENT CONVERSION ALGORITHMS 
VOLUME SIX 
A Complete Business System 


Ledger Maintains ALLCompany accounts and generates ALL financial reports. 
Includes routines for: Pyrl, Inv. Depr. A/R, A/P, Balance Sheets and Pro- 
fit + Loss statements, etc. 

ACBS rev: 80 Users Manual - A Proprietary Package 


VOLUME SEVEN 
Professional Programs 


Chess Designed to challenge the average player, fairly comprehensive. Great fun 
for all, offers a unique opportunity for beginners in need of an opponens,. 

Medbil For Doctors and Dentists alike, a complete patient billing system which also 
permits the maintaining of a patient history record, 

Wdproc Wordprocessing for lawyers, publishers, writers etc. Write, store and change 


from rough draft to final copy in a variety of formuts. 
VOLUME SEVEN 
Professional Programs 
Uriliny 


Licensing Agreement 


BESTELLSCHEIN 
Heute noch an Ihren Buch- oder Fachhändler absenden! Bitte senden Sie mir folgende Bücher: 


ua Stck. Vol. , Best.Nr. 80/50, DM 99,-- 
u Stck. Vol. Il , Best.Nr. 80/51, DM 99,-- 
et Steck. Vol. Ill, Best.Nr. 80/52, DM 149, -- 
ee Stck. Vol. IV, Best.Nr. 80/53, DM 39,-- 
a Steck. Vol. V , Best.Nr. 80/54, DM 39, -- 
ee Stck. Vol. VI, Best.Nr. 80/48, DM 199, -- 
ee Steck. Vol. VII, Best.Nr. 80/49, DM 159, -- 
veensiere Stck. Programm Bibliothek BASIC, (Volume I bis Vol. V) Best.Nr. 80/21,DM 425, -- 


Hofacker Verlag 


GRUNDAUSSTATTUNG 


Die Grundausstattung der BASIC Programmbibliothek besteht aus fünf Büchern mit insgesamt 
1100 Seiten Programmlistings und genauen Beschreibungen. (Format DIN A 4) 
Sie finden in diesem Werk 149 verschiedene BASIC Programme aus folgenden Bereichen: 
Buchhaltung 
Computerspiele 
Bildprogramme 
Mathematik und Ingenieurwissenschaften 
Statistik, technische Mechanik etc. 
Commerzielle Programme, Rechnungswesen, Fakturierung 
Inventurprogramme, Lohn-und Gehaltsbuchhaltung 
Experimentierprogramme u,v.a. 
Jedes Programm ist genau beschrieben. 
Die fünf Bände bilden eine komplette "Do It Yourself" Programmbibliothek, die sehr einfach 
zu handhaben ist. Es werden jedoch Grundkenntnisse in der Programmierung vorausgesetzt. 


PREISSENSATION 


Bei 149 Programmen in dieser umfangreichen Bibliothek bezahlen Sie nur 
DM 2.85 pro BASIC Programm - Das ist einmalig! 


BESCHREIBUNG DER PROGRAMMBIBLIOTHEK 


Diese Bibliothek ist die umfangreichste und universalste ihrer Art auf dem Weltmarkt. Die 
Besonderheit dieser fünf Werke liegt darin, daß dem Anwender die Möglichkeit gegeben wird, 
in erster Linie sinnvolle und produktive Aufgaben wie Buchhaltung, Statistik, mathematische 
Probleme etc., zu lösen. Computerspiele sind jedoch auch enthalten. 


Alle Programme wurden mehrmals auf verschiedenen Systemen ausgeführt und getestet. Jedes 
Programm ist mit einer genauen Beschreibung und einer Aufstellung der infrage kommenden 
Anwender versehen. Befehle und mögliche Grenzen der Programme sind auch aufgezeigt, 
wenn die Programme auf unterschiedlichen Systemen ausgeführt werden sollen. Auch der be- 
nötigte Speicherbereich ist für jedes Programm genau angegeben. 

Jedes Programm ist in seiner vollständigen Größe aufgeführt und nicht reduziert. Es ist in 
sich selbst vollständig und kann im Ablauf genau verfolgt werden. Es gibt Aufschluß über 
alle wichtigen Daten. Bei den meisten Programmen folgt unmittelbar nach dem Programm- 
listing ein Probelauf. Die meisten Programme sind in kompatiblem BASIC geschrieben, wel- 
che auf den meisten 4K BASIC-Versionen ausgeführt werden können. 


Best.Nr. 80/21, 5 Bücher mit 1100 Seiten DIN A 4 (149 Programme) nur DM 425, -- 


Die Bände sind auch einzeln erhältlich: 


BASIC Volume I 

Programme über Buchhaltung, Computerspiele und Bilder (Computerbilder per Programm) 
Best.Nr. 80/50 DM 99,-- 
BASIC Volume II 


Programme über mathematische Probleme, technische Programme, Zeichnen, Plotting und 
Statistik. Grundlegende Statements. 
Best.Nr. 80/51 DM 99,-- 


BASIC Volume Ill 

Erweiterte Geschöftsprogramme für den kommerziellen Bereich, Fakturierung, Inventuren, 
Gehaltsbuchhaltung. 

Best.Nr. 80/52 DM 149, -- 


BASIC Volume IV 
BASIC Programme aus allen Bereichen. Universelle Anwendung. 
Best.Nr. 80/53 DM 39,-- 


BASIC Volume V 
Experimentierprogramme, 
Best.Nr. 80/54 DM 39,-- 


BASIC Volume VI 

Ein komplettes, interaktives Programmpaket für Floppy Disk - 
Einsatz im kommerziellen Bereich, Gehaltsabrechnung, In- 
ventur, Gewinn und Verlustrechnung u. v.a. 


Best.Nr. 80/48 DM 199, -- 


BASIC Volume VII 

Das Schachprogramm, auf das Sie schon lange gewartet haben. 
Spielt zwei Farben. Leichter bis mittlerer Schwierigkeitsgrad. 
x Kann einfach erweitert werden. Zugzeit ab 3 Minuten. 


Best.Nr. 

Medical Billing package (Patientengeschichte und Kostenüber- 
sicht für Ärzte) 

Disk interaktives Textverarbeitungssystem.. 

Best.Nr. 80/49 DM 159, -- 


Genaue Beschreibung des BASIC Volume VII 


Schachprogramm (Chess) 

Diese Version eines Schachprogrammes in BASIC ist für die meisten 12 K BASIC-Versionen 
(mit oder ohne kleinen Änderungen) geeignet. Weiterhin sollten noch ca. 12K im RAM-Be- 
reich zur Verfügung stehen. Das Programm spielt Schach im Schwierigkeitsgrad für Anfänger, 
kann aber durch entsprechende Änderungen auch schwieriger gestaltet werden. Züge werden 
im Bereich von 3 Minuten oder mehr durchgeführt. Der erste Zug benötigt ca. 3 Minuten. 
Die Zugzeit steigt dann entsprechend dem Spielfortschritt entsprechend an. Das Programm 
kann wahlweise schwarz oder weiß spielen. Das Spielfeld wird auf dem Bildschirm angezeigt 
oder kann auf einem Drucker ausgegeben werden. 


BASIC-Programm für die Arztpraxis (Medbil) 

Dieses Programm wurde zur Erleichterung der so teuren und mühsamen Alltagsarbeit der Ärzte 
entwickelt. Dieses Programm ermöglicht die Speicherung und Durchsicht jeder Patientenge- 
schichte auf dem Bildschirm, die vorher in einer Datenbank gespeichert wurde. Weiterhin be- 
steht eine Möglichkeit der schnellen Überprüfung von aufgelaufenen Behandlungskosten pro 
Patient. Auf einer 250 K Byte Diskette können etwa 110 Patienten mit all ihren Daten aufge- 
nommen werden. Mit einer Minifloppy (80 K Byte) reduziert sich die mögliche Patientenzahl 
auf ca. 25 pro Diskette. 


Textverarbeitungsprogramm (Wrdpro) 

Dieses Programm ermöglicht dem Besitzer von Microcomputern Texte zusammenzustellen und 
in beliebigen Formaten wieder auszudrucken. Das Programm läuft auf den meisten extended 
BASIC-Versionen mit mindestens 15K freiem RAM-Bereich. 


W. Hofacker 
Verlag 


Absender 
Bitte deutlich ausfüllen 


Vorname/Name 

Beruf MIKROCOMPUTER BOOK STORE 

SIraBalN, Tegernseerstr. 18 

= = D-8150 Holzkirchen /Obb. 
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BESTELLKARTE für ein ELCOMP-Abonnement 


Auslands-Abonnement (Europa) + DM 10.-- Versandkosten 


Bitte senden Sie mir ab sofort alle künftigen Ausgaben der ELCOMP., Preis DM 69,— 
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Wir liefern Compiler für cbm : 
PASCAL Vollcompiler nach ISO-Normierung 
weitgehend UCSD-kompatibel 
voller Jensen/Wirth Standard 
11-stellige Arithmetik 
PEEK/POKE 
Viertelpunktgraphik über PLOT(x,y,boolean) 
virtuelles RAM bis 1 Megabyte mit cbm 8050 
Dateidirektzugriff 
jegliche Peripherie wie gewohnt ansprechbar (IN- und OUT !) 
lauffähig mit 32 kByte RAM und Doppelfloppy 
Sonderversion mit 64 kByte für 8096 lieferbar 


BASIC Vollcompiler mit BASIC 4.0 und ExBasic Level II 
automatische Programmoptimierung 

darüberhinaus erweiterte Standard-BASIC-Funktionen 
dynamische RAM-Verwaltung 

verschiebbarer Code 


Linker für Assemblerprogramme 


FORTH vollständiges FORTH-Betriebssystem (passend zu diesem Buch) 
Diskhandling 

Macro-Assembler 

398 Befehle bereits implementiert 


Linker für Assemblerprogramme 


Bei allen Compilern handelt es sich um ausgereifte Systeme, die gerade für den 
kommerziellen Nutzer alle Möglichkeiten der Commodore-Geräte ohne Einschränkungen 
nutzbar lassen ( auch fremde Hard- oder Softwareerweiterungen ). 
Die Compiler werden auf Diskette geliefert, deshalb bei allen Bestellungen 
unbedingt Rechner- und Floppytype angeben ! 
Unsere Preise : Jeder Compiler DM 698,-- inkl. 13 % MWSt. bei Kauf 

DM 113,-- inkl. 13 % M;St. bei 14 Tagen Miete 

(nur PASCAL oder BASIC !) 


phs/SLS Absender: ....22ceecseesenenonnnnnne 
Davenstedterstrr.B 0200 Enns sereenee nenne enneen 


3000 Hannover 4 see aneesensee nennen nenne 


Betrifft: cbm-Compiler 


Ich besitze einen cbm 3032/4032 KS/4032 65/8032/8096 
sowie eine Floppy cbm 3040/4040/8050 
Mich interessiert: 
FORTH PASCAL BASIC Sonstiges Programm 


Ich möchte 

nähere Informationen 

den Compiler für 14 Tage zur Miete (DM 113, --) 
den Compiler kaufen (DM 698, --) 
Ihren Katalog (DM 15,--) 


Der Betrag von DM ........ 
- soll per Nachnahme erhoben werden 
- liegt als Verrechnungsscheck bei 


Weitere interessante Bücher von Hofacker: 
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Bücher in deutscher Sprache 
Transistor Berechnungs- u. Bauanleitungsbuch -- ] 
Transistor Berechnungs- u. Bauanleitungsbuch — 2 
Elektronik im Auto 
IC-Handbuch, TTL, CMOS, Linear 
IC-Datenbuch, TTL, CMOS, Linear 
IC-Schaltungen, TTL, CMOS, Linear 
Elektronik Schaltungen 
IC-Bauanleitungs-Handbuch 
Feldeffekttransistoren 
Elektronik und Radio 
IC-NF Verstärker 
Beispiele Integrierter Schaltungen (BIS) 
HEH, Hobby Elektronik Handbuch 
IC-Vergleichsliste 
Optoelektronik Handbuch 
CMOS Teil 1, Einführung, Entwurf, Schaltbeispiele 
CMOS Teil 2, Entwurf und Schaltbeispiele 
CMOS Teil 3, Eintwurf und Schaltbeispiele 
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